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This manual contains information about the Texas Instruments version of COBOL (COmmon 


Business 


Oriented Language), which is designed to operate on Texas Instruments computers. 


This information supports the experienced programmer in developing COBOL programs intended 
for execution under the DX10 Operating System. For additional descriptions of COBOL, refer to 
the COBOL Reference Manual. 


This manual contains the following sections and appendices: 


Section 


1 


2270521-9701 


Introduction — Describes DX10 as it relates to COBOL and the operating system 
environment. This introduction also includes an overview of the processes necessary to 
create and execute a COBOL program (task) and includes notations that are used to 
describe commands in this manual. 


Operating System Concepts — Describes features related to program development. 
Includes description of interactive tasks and batch execution, the System Command 
Interpreter (SCl), directory and file structure, pathnames, access names, and synonyms. 


Building a COBOL Source Program Module — Discusses how to build a COBOL 
program source module, beginning with directory and file development, and how to use 
the Text Editor utility. : 


Compilation — Explains how a COBOL source program module is compiled and 
discusses compiler completion codes and error messages. 


Link Edit — Explains the link editing process, COBOL segmentation, overlays, and 
installation of COBOL task and procedure segments. Includes information on memory 
mapping and the COBOL run-time interpreter. 


Execution — Discusses execution of COBOL object modules, linked object modules, 
and program images. Provides necessary SCI commands, completion codes, and error 
messages. 


Debugging — Discusses COBOL debugging for COBOL routines and the operating 
system debugging for assembly language object modules that are linked to a COBOL 
object module. 


Calling Subroutines — Describes the process for calling COBOL and assembly 
language modules. 


Interfacing to Productivity Tools — Introduces the productivity tools that can interface 
with COBOL and explains how these tools can be linked with COBOL object modules. 
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Appendix 


10 


11 


12 


13 


A 


Using SCI Command Procedures to Execute COBOL Tasks — Describes how to design a 
system to interact with application environment processors and SCI. 


COBOL Device-Dependent Attributes — Describes the ACCEPT/DISPLAY command 
option that allows access to function keys, low volume Input/Output (I/O), and graphic 
1/0. 


Error Processing — Describes the COBOL file status data item and error processing 
under program control. 


- Optimizing Run-Time Performance — Discusses various ways to optimize COBOL code. 


Keycap Cross-Reference — This appendix contains specific keyboard information to 
help the user identify individual keys on any supported terminal. 


COBOL Compiler Error Messages — Lists COBOL user and system compiler error 
messages. 


COBOL Run-Time Error Messages — Lists COBOL user and system run-time error 
messages. 


COBOL Subroutine Library Package — Describes COBOL subroutine library modules. 


COBOL Compiler Listing Format — Gives example of the results from using the M, O, 
and X options on the COBOL compiler. 


In addition to the software manuals shown on the frontispiece, the following documents contain 
information related to this manual: 
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Introduction 





1.1 COBOL 


The COBOL compiler conforms to the American National Standards Institute (ANSI) COBOL sub- 
set as defined in ANSI document X3.23-1974. The COBOL compiler incorporates extensions to this 
subset to provide added capabilities. The compiler package employs the following ANSI 74 stan- 
dard COBOL modules at the level indicated: 





Level 1 Features Level 1+ Features* 
Interprogram communications Nucleus 
Library Table handling 
Segmentation Sequential I/O 
| Relative I/O 
Indexed I/O 


* Selected features from level 2 
COBOL debug support and ACCEPT and DISPLAY statements are nonstandard and are designed 
for interactive use on video display terminals (VDTs). 
1.2 ACOBOL PROGRAM DEVELOPMENT OVERVIEW 


The operating system provides developmental and operational support for program modules 
written in COBOL. The information presented in this section is an overview of the following: 


e Building program source modules via the text editor 

e Compiling program source modules to produce object program modules 

e Linking program object modules to produce program images on a program file 

e Executing program images on a program file 

e Executing a program object module or a linked object module 
Refer to the appropriate sections in this manual for specific details about developmental and 
Operational support for program modules written in COBOL. The details of the language are dis- 
cussed in the COBOL Reference Manual. 
During the preparation of this manual, some assumptions have been made for the sake of a clear 


presentation. You are assumed to have aDX10 system with SCI, aterminal operating in VDT mode, 
a valid user ID, and a passcode. 
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The following definitions are provided to assist you when reading this manual: 


Module — A set of computer program instructions treated as a unit by an assembler, compiler, link 
editor, or other similar processor. 


Object File — A file (usually created by the compiler) containing one or more object program 
modules. 


Program — A collection of object instructions that directs the activities of a computer: can consist 
of task segments, procedure segments, and overlays. 


Task — A program that executes under control of the operating system. 


Source File — A file (usually created by using the text editor) containing one or more program 
source modules (Source code or statements). 


Linked Object File — A file (created by the link editor) containing one or more program object 
modules that have been linked together to produce linked object modules. 


Program File — A file (created by you or by the link editor) containing executable program com- 
ponents in memory image form. 


Link Control File — A file (created by you) containing instructions for the link editor. 


Subroutine — A sequenced set of statements that may be used in one or more programs and at 
one or more points in a program. 


Logical Unit Number (LUNO) — A number that represents a file or device and is specified in an I/O 
operation. 


Synonym — A text string that functions as an alternative for another string. 

Normally, you write COBOL program source modules from a VDT under the control of the text edi- 
tor. The text editor allows you to create or modify an existing program source module. This file is 
used as input to the COBOL compiler. A pathname is assigned to the source file at its creation. 
Pathnames are discussed in Section 2. Figure 1-1 shows a sample COBOL program source 
module. 

When SCI commands are invoked during compilation or execution, acommand heading and infor- 
mation concerning the software release level are displayed. The software release information 
appears as follows: 


VERSION <L.R.V YYDDD> 


where: 
Lis the software level. 
R is the software release of level L. 


V is the software version of release R (operating system). 
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YY is the year the software was released. 
DDD is the day of the year when the software was released. 


IDENTIFICATION DIVISION. 
PROGRAM-ID. LRV. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TI-990. 
OBJECT-COMPUTER. TI-990. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT LISTFILE ASSIGN TO RANDOM "LST". 
DATA DIVISION. 
FILE SECTION. 
FD LISTFILE LABEL RECORDS STANDARD. 


01 LISTING. 
O02 CC PIC X(3). 
O02 DNCBL PIC X(15). 
02 L-R-V PIC X(7). 
O02 YY-DDD PIC X(7). 


O02 COMPILED PIC X(9). 
O02 MM-DD-YY PIC X(9). 
02 HH-MM-SS PIC X(9). 


O02 FILLER PIC X(10). 
O02 PAG PIC X(4). 
O02 FILLER PIC X(7). 


WORKING-STORAGE SECTION. 
01 ACTION PIC X. 
01 EOF PIC X VALUE "' "'. 
PROCEDURE DIVISION. 
MAIN-PROG. 
OPEN I-O LISTFILE. 
PERFORM READ-WRITE UNTIL EOF > "' '''" 
CLOSE LISTFILE. 
STOP RUN. 
READ-WRITE. 
READ LISTFILE AT END MOVE 1 TO EOF. 
IF ODNCBL = "'DNCBL" 
IF COMPILED = ''COMPILED:" 
IF PAG = ''PAGE" 
MOVE "'L.R.V'"' TO L-R-V 
MOVE "'YY.DDD"' TO YY-DDD 
MOVE ''MM/DD/YY'"' TO MM-DD-YY 
MOVE "'HH:MM:SS" TO HH-MM-SS 
REWRITE LISTING. 


Figure 1-1. Program Source Module — MANUAL.PG.SRC.FIGO101 
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To compile a COBOL program source module, enter one of the Execute COBOL Compiler (XCC or 
XCCF) commands. The command prompts for the XCCF command (with sample responses 


included) are as follows: 


EXECUTE COBOL COMPILER 


SOURCE ACCESS NAME: 

OBJECT ACCESS NAME: 

LISTING ACCESS NAME: 
OPTIONS: 

PRINT WIDTH: 

PAGE SIZE: 

PROGRAM SIZECLINES): 


FOREGROUND <VERSION: L.R.V. YYDDD> 
MANUAL.PG.SRC.FIG0102 
MANUAL.PG.OBJ.FIG0102 
MANUAL.PG.LST.FIGO102 


After responding to the prompts, press the Return key to activate the compiler. When the compila- 
tion completes, a completion message appears on the video display terminal (VDT) screen. If an 
error occurs, check the error message in the appropriate appendix, correct the error, and recompile 
the program source module. Section 4 has complete instructions for compiling COBOL source 


program modules. 


Figure 1-2 shows an example of acompiler listing. Notice that the number of errors and warnings 
as aresult of the compilation are included near the end of the listing. 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 1 


SOURCE ACCESS NAME: 
OBJECT ACCESS NAME: 
LISTING ACCESS NAME: 
OPTIONS: 

PRINT WIDTH: 

PAGE SIZE: 

PROGRAM SIZE (LINES): 


MANUAL.PG.SRC.FIGO102 
MANUAL.PG.OBJ.FIG0102 
MANUAL.PG.LST.FIGO102 
M 

80 

55 

1000 


Figure 1-2. Compiler Listing — MANUAL.PG.LST.FIG0102 (Sheet 1 of 3) 
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DEBUG 


>0000 
>0000 
>0006 
>0010 
>0016 
>0018 
>0018 
>0022 
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L.R.V. YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 2 


PG/LN 


Prachctar tBrrase a Siva, we iarsate Sees wi ote lane aoe eievate Dine aaa Wager ea Cacw eel were eee 
IDENTIFICATION DIVISION. 
PROGRAM-ID. LRV. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TI-990. 
OBJECT-COMPUTER. TI-990. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT LISTFILE ASSIGN TO RANDOM "'LST''. 
DATA DIVISION. 
FILE SECTION. 
FD LISTFILE LABEL RECORDS STANDARD. 
01 LISTING. 


O02 CC PIC X(3). 
O2 DNCBL PIC X(15). 
O02 L-R-V PIC X(7). 
O02 YY-DDD PIC X(7). 


O02 COMPILED PIC X(9). 
O02 MM-DD-YY PIC X(9). 
02 HH-MM-SS PIC X(9). 


O02 FILLER PIC X(10). 
O2 PAG PIC X(4). 
O2 FILLER PIC X(7). 


WORKING-STORAGE SECTION. 
01 ACTION PIC X. 
01 EOF PIC X VALUE '"' '''. 
PROCEDURE DIVISION. 
MAIN-PROG. 
OPEN I-O LISTFILE. 
PERFORM READ-WRITE UNTIL EOF > '"' '"'” 
CLOSE LISTFILE. 
STOP RUN. 
READ-WRITE. 
READ LISTFILE AT END MOVE 1 TO EOF. 
IF DNCBL = "'DNCBL"' 
IF COMPILED = ‘'COMPILED:" 


IF PAG = ''PAGE" 
MOVE "'L.R.V'' TO L-R-V 
MOVE "'YY.DDD"' TO YY-DDD 
MOVE '"'MM/DD/YY'"' TO MM-DD-YY 
MOVE "'HH:MM:SS'' TO HH-MM-SS 
REWRITE LISTING. 


ZZZZZZ END PROGRAM. xxx END OF FILE 


Figure 1-2. Compiler Listing — MANUAL.PG.LST.FIG0102 (Sheet 2 of 3) 
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DXCBL L.R.V. YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 3 
ADDRESS SIZE DEBUG ORDER TYPE NAME 

0 FILE LISTFILE 
>0026 80 GRP 0 GROUP LISTING 
>0026 3 ANS 0 ALPHANUMERIC CC 
>0029 15 ANS 0 ALPHANUMERIC DNCBL 
>0038 7 ANS 0 ALPHANUMERIC L-R-V 
>003F 7 ANS 0 ALPHANUMERIC YY-DDD 
>0046 9 ANS 0 ALPHANUMERIC COMPILED 
>004F 9 ANS 0 ALPHANUMERIC | MM-DD-YY 
>0058 9 ANS 0 ALPHANUMERIC HH-MM-SS 
>006B 4 ANS 0 ALPHANUMERIC PAG 
>007A 1 ANS 0 ALPHANUMERIC ACTION 
>007C 1 ANS 0 ALPHANUMERIC EOF 
READ ONLY BYTE SIZE = >012A 
READ/WRITE BYTE SIZE = >O0CE 


OVERLAY SEGMENT BYTE SIZE = >0000 
TOTAL BYTE SIZE = >01F8 
0 ERRORS 


0 WARNINGS 
Figure 1-2. Compiler Listing — MANUAL.PG.LST.FIG0102 (Sheet 3 of 3) 


After compilation, the compiled object module is either executed, linked to create a linked object 
module, or linked to create a program image on a program file. Refer to Section 6 for details and 
restrictions regarding execution of a compiled object module. Section 5 contains details and 
restrictions for linking. 


Before MANUAL.PG.OBJ.FIGO101 is executed, external file assignments must be resolved if syn- 
onyms are specified in the source module. In Figure 1-1, the synonym LST must be assigned to the 
pathname of the compiler listing file. To assign the synonym LST, enter the Assign a (AS) 
SCI command. The command prompts are as follows (with sample responses included): 


ASSIGN SYNONYM VALUE 
SYNONYM: LST 
VALUE: MANUAL.PG.LST.FIGO101 
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To execute COBOL object modules, use the Execute COBOL Program (XCP or XCPF) SCI com- 
mand. When the XCPF command is activated, enter the COBOL object file access name or linked 
object file access name defined when the COBOL program module was compiled or linked. The 
SCI commands associated with execution of a COBOL program are described in detail in Section 
6. The command prompts are as follows (with sample responses included): 


EXECUTE COBOL PROGRAM FOREGROUND <VERSION: L.R.V. YYDDD> 
OBJECT ACCESS NAME: MANUAL.PG.OBJ.FIGO101 
DEBUG MODE: NO 
MESSAGE ACCESS NAME: 
SWITCHES: 00000000 
FUNCTION KEYS: NO 


To create a linked object module, the Link Editor utility and a link control file are required. If a link 
control file is not available, you must create one. An example link control file is as follows: 


TASK LRV 
INCLUDE MANUAL.PG.OBJ.FIG0101 
END 


You also need a link control file to link an object module for producing a program image using the 
Link Editor utility. An example link control file is as follows: 


FORMAT IMAGE,REPLACE 
PROCEDURE RCOBOL 

DUMMY 

INCLUDE .S$SYSLIB.RCBPRC 
TASK LRV 

INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE MANUAL.PG.OBJ.FIG0101 
END 


In this link control file, named MANUAL.PG.CONTROL.EXAMPLE1, the IMAGE in the FORMAT 
statement ensures that the object file output from the link editor is written directly to a program 
file in memory image form. The word REPLACE ensures that any task segment in the program file 
with the name LRV is deleted before this task segment is written to the program file. The DUMMY 
command prevents the shared procedure segment (RCOBOL) from being replaced in the program 
file. 


To initiate the link editor, enter the Execute Link Editor (XLE) SCI command. Respond to the 
prompts to link and install the LRV task on a program file named MANUAL.PG.PROGRAM. The 
command prompts are as follows (with sample responses included): 


EXECUTE LINK EDITOR 
CONTROL ACCESS NAME: MANUAL.PG.CONTROL.EXAMPLE1 
LINKED OUTPUT ACCESS NAME: MANUAL.PG.PROGRAM 
LISTING ACCESS NAME: MANUAL.PG.LINKLIST.EXAMPLE1 
PRINT WIDTH (CHARS): 80 
PAGE LENGTH: 59 
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To execute linked object modules, use the Execute COBOL Program (XCP or XCPF) commands. 
You can execute the object module as a program image on a program file by using the Execute 
COBOL Task (XCT or XCTF) commands. 


Now, to execute the installed program image, use the XCT or XCTF commands. Once the call has 
been issued, the COBOL task executes under control of the run-time interpreter; the interpreter is 
included as part of the task at link edit time. 


To execute the task LRV on program file MANUAL.PG.PROGRAM, enter the XCTF command and 
respond to the command prompts. Section 6 describes the SCI commands associated with exe- 
cution of aCOBOL task. The command prompts are as follows (with sample responses included): 


EXECUTE COBOL TASK FOREGROUND <VERSION: L.R.V. YYDDD> 
PROGRAM FILE LUNO: >/7 
TASK ID OR NAME: LRV 
DEBUG MODE: NO 
MESSAGE ACCESS NAME: | 
SWITCHES: 00000000 
FUNCTION KEYS: NO 


After responding to the prompts, the program executes. If an error occurs: 1) check the error mes- 
sage in the appropriate appendix; 2) correct the error; and 3) compile, link edit, and execute the 
task again. 


COBOL debug mode is available only with the XCPF and XCTF commands. The debug mode pro- 
vides for controlled execution of a program or task. When running in debug mode, a program or 
task can be halted and resumed. The debug mode allows you to specify address stops, single 
COBOL statement execution, or data item dumps. Also, it is possible to exit from debug mode or 
quit execution of atask. For further information about debugging, refer to Section 7. 


1.3. SCI COMMAND PROMPT FORMAT AND NOTATION 


When SCI command prompts are described in this manual, a standard format and notation is used. 
The notation is described in the following paragraphs. 


/ 


1.3.1 Command Name 
The characters of acommand represent the full command name. For example, the characters of 
the Show Date and Time command are SDT. To enter a command, type the characters of the com- 
mand and signal when finished by pressing the Return key. 
When you enter SDT and press the Return key 

C] SDT <RETURN> 
the system responds as follows: 


13:48:30 WEDNESDAY, MAY 14, 1980. 


Since the Show Date and Time command includes no command prompts, the command executes 
without further user interaction. 
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1.3.2 Command Prompts Returned 

Upon entry of acommand, the system displays the full name of the command and any associated 
command prompts. Command prompts provide you with information and request parameters to 
complete execution of the command. In the Show File example that follows, the cursor appears 
after the “FILE PATHNAME:” prompt. The system waits for you to enter a file pathname. (A path- 
name is acharacter string that indicates a path to a resource such as a file, channel, or device.) 


1.3.3 Type of Response Expected 

For each command prompt, a response of a given type is expected. In the remainder of this 
manual, the expected response type is given after each command prompt. In the Show File 
example that follows, the expected response type is a pathname. To enter a response, proceed as 
follows: 


1. Type the desired response. The response must be of the type expected. To show the 
contents of a file named .MYFILE, type .MYFILE in response to the FILE PATHNAME: 
prompt of the Show File (SF) SCI command. 


2. Press the Return key to signal that the entry is complete. 
The following example illustrates the description of the SF command: 


C J] SF 
SHOW FILE 
FILE PATHNAME: pathnamead 


Following the response to the first prompt, the cursor is positioned after the next prompt and 
waits for your response. After entry of the response to the last prompting message, the command 
executes. You can press the Command key prior to entering the last prompt to prevent execution 
of acommand. 


To help you respond to the prompts, the system sometimes displays an initial value after a prompt 
or has a default value available for a response. The following paragraphs describe initial values and 
default values. 


1.3.3.1 Initial Values. An /nitia/ value is a value that the system automatically displays as a 
response to some prompting messages. Users can accept an initial value by pressing the Return 
key. They can erase the initial value by pressing the Erase Field or Skip key. Finally, they can reject 
the initial value by entering a different value. 


The initial values for some prompts are fixed; therefore, the same initial value always appears for 
that prompt. In other cases, the system saves a value entered with a command and displays it as 
an initial value for a later entry of the same command or for the entry of a related command. Some 
variable initial values are also saved from one terminal session to another. 


1.3.3.2 Default Values. A defau/t value is a value that the system automatically supplies as the 
response to a prompt when you do not enter a value. The system often provides default values to 
speed up the entry of responses to prompts. This is especially true for optional user responses. To 
enter the default value for a prompt (where a default value exists), press the Return key without 
entering any other data. Such an entry is called anul// entry. 
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Notation symbols (Table 1-1) enclose some prompt responses in the command descriptions to 
help explain how the responses are entered. 


Notation 


Uppercase 
Lowercase 
No marks 
[] 

{ } 


item. . .item 


Table 1-1. Command Prompt Notation 


Meaning 


Enter the response as listed. 
Enter aresponse of this type. 
The response is required. 
The response is optional. 


The response must be exactly one of the enclosed 
items or must be a type of one of the enclosed items. 
(Choices separated by a slash.) 


More than one item of this type may be entered in 
reponse to the prompt. Items should be separated by 
commas. 


Synonyms or logical names are allowed (as responses). 


The item enclosed in parentheses represents the initial 
value. If (*) is shown, the value may be supplied from a 
synonym set by a previously used command procedure. 
If a list is supplied in a form other than interactive 
(batch mode or a procedure calling a command proce- 
dure), the list must be enclosed in parentheses. 
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Operating System Concepts 


2.1 INTRODUCTION 


This section provides an overview and describes some important system capabilities. For more 
information, refer to the operating system manuals listed on the frontispiece of this manual. 


2.2 TASK STRUCTURE 


A task is a Specific activation of a program. DX10 is a multitasking operating system designed to 
share concurrently the memory, machine execution time, and peripheral resources of the system 
among several tasks. While one task is active (executing), others are suspended awaiting 
reactivation. 


At each terminal, it is possible to have one foreground task and one background task concurrently 
active. 


2.2.1. Interactive Tasks 

All interactive tasks operate in either foreground, background, or batch. A foreground task can 
accept data from the terminal as it is executing. In background mode, SCI does not expect inter- 
action with terminals. You can start a task (for example, updating a database) in background mode 
and perform other activities (such as data collection) in foreground mode while the background 
task is active. When complete, the background task returns a message to the terminal, indicating 
completion. 


Commands entered from interactive terminals are entered in foreground mode. The operating sys- 
tem responds by displaying the appropriate command prompts. Enter the required information; 
the task now begins execution. While the task executes in foreground, SCI is suspended to avoid 
interference. User interaction now occurs directly with the foreground task. The DX10 Operations 
Guide describes the commands that initiate tasks in all modes. 


2.2.2 Batch Streams 

Batch streams use SCI in background mode to process batch commands. In batch mode, SCl 
accepts commands from any sequentially oriented device but not from a terminal. When you enter 
commands in a batch command stream, include all parameters required for the operation. Also, be 
sure that the commands included are suitable for execution in background mode. Commands that 
initiate operations requiring user interaction (for example, text editing and debugging commands) 
are not permitted. 
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2.3 USING SCI 

The following paragraphs discuss the use of SCI. Section 10 gives information for designing your 
own command procedures. The DX10 Applications Programming Guide contains complete 
descriptions of SCI commands, plus procedures for creating new commands and menus. 


2.3.1. SCli Description 

SCI is the interface between you and the operating system, system utilities, the software develop- 
ment programs, and application programs. Application programs can interface with you through 
user-defined SCI commands and menus. 


You can use SCI to activate programs and to pass parameters to the programs during execution. 
SCI also allows you to build and maintain tables of variables, called synonyms, and their values. 
SCI allows application programs to access these variables for use in the programs. 


To execute an application program via SCI, you can use predefined execution commands such as 
Execute Task (XT), Execute FORTRAN Task (XFT), Execute Pascal Task (XPT), and Execute COBOL 
Task (XCT), or you can write your own SCI command to initiate a program. You can add user- 
defined commands to the system library, or you can group them in a separate command library. 
The .USE primitive allows you to specify which command library SCI should use. 


You can enter SCI commands from interactive terminals or in batch command streams. In 
response to commands entered interactively, SCI displays command prompts associated with the 
command. | 


When all required prompts have been properly answered, SCI interprets the responses and 
initiates the requested operation. 


2.3.2 Entry of SCl Commands in VDT Mode 

To enter an SCI command in VDT mode, type the characters (in uppercase letters) of the command 
and press the Return key. If you set the lowercase option with the .OPTION primitive, you can use 
either upper or lowercase characters. Upon entry of acommand, SCI displays the full name of the 
command entered and all the field prompts associated with the command. Field prompts provide 
information and request parameters to complete command execution. For example, the following 
field prompt requests that you identify an output pathname: 


OUTPUT PATHNAME : 


2.3.3 Examples of Using SCI 
The following paragraphs contain examples of specific uses of SCI commands. 


2.3.3.1 The Show Background Status (SBS) Command. Use the SBS command to view the 
status of a program that is currently executing in background mode and that was initiated from 
your terminal. Since this command has no associated prompts, the command executes immedi- 
ately after you enter SBS and press the Return key. A message indicating the state of the back- 
ground activity appears, as follows: 


C] SBS 
SHOW BACKGROUND STATUS 


TASK IS ACTIVE 
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2.3.3.2 The List Directory (LD) Command. Use the List Directory command to list the names of 
all files and subdirectories in a directory. The display for this command is as follows: 


C] LD 


LIST DIRECTORY 
PATHNAME: pathnamea 
LISTING ACCESS NAME: [pathnamela 


In response to the prompt PATHNAME, enter the pathname of the directory whose filenames and 
subdirectory names will be listed. The @ indicates that you can specify the pathname as a 
synonym. 


In response to LISTING ACCESS NAME, enter the pathname of the device or file to which the 
listing should be written. The brackets ({ ]) indicate that the response is optional. The default value 
is the terminal at which the command is entered. A null response (pressing the Return key while 
the cursor is in a blank field) causes the default value to be accepted. In the following case, the 
directory SYS2.DP0080 is listed to the terminal from which the command was executed. Synonym 
D represents the directory pathname. 


C] LD O 


LIST DIRECTORY 
PATHNAME: SYS2.DP0080 
LISTING ACCESS NAME: 


DIRECTORY LISTING OF: SYS2.DP0080 
MAX # OF ENTRIES: 101 # OF ENTRIES AVAILABLE: 78 


DIRECTORY ALIAS OF ENTRIES LAST UPDATE CREATION 

ML * 5 05/30/80 13:44:48 03/17/80 12:51:06 
TIP * 11 05/07/80 12:02:20 02/11/80 16:44:21 
FILE ALTAS OF RECORDS LAST UPDATE FMT TYPE BLK PROTECT 
BATCH * 24 06/03/80 08:16:56 BS N SEQ YES 

COBOL * 3550 05/30/80 14:06:46 NBS N SEQ YES 


DATA * 17 05/07/80 15:31:57 BS N SEQ YES 


16:21:50 TUESDAY, JUN 03, 1980. 
2.3.4 Batch Use of SCI 
To use SCI in a batch mode with a batch stream, use the Execute Batch (XB) command. The XB 
command starts a background task that is associated with your terminal. 


The following paragraphs discuss the characteristics of batch SCI and the differences in format 
between batch commands and commands entered interactively. 
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2.3.4.1. Batch Stream Format. The first and last commands of a batch stream should be the 
BATCH and EBATCH commands, respectively. The BATCH command initiates the batch SCI envi- 
ronment. EBATCH indicates that the batch stream contains no more commands to be processed 
by SCI. 


Upon normal completion of the batch stream executing in background mode, the following mes- 
sage appears: 


BACKGROUND EXECUTION HAS COMPLETED: 


2.3.4.2 Batch Command Format. When supplying SCI commands in batch stream format, 
include the following information for each command: 


e The characters of the command 
e All required prompts associated with the command 
e The parameter values (responses) for the command prompts 


The following examples demonstrate the Execute Link Editor (XLE) command in both interactive 
and batch form. (Refer to the Link Editor Reference Manual for a complete description of the XLE 
command.) 


When you enter XLE interactively, the command prompts appear: 


C ] XLE 


EXECUTE LINK EDITOR 
CONTROL ACCESS NAME: pathnamea 
LINKED OUTPUT ACCESS NAME: [CpathnameJa 
LISTING ACCESS NAME: [pathnameJa 
PRINT WIDTH: integer (80) 
PAGE LENGTH: integer (59) 


To execute the command, respond to the CONTROL ACCESS NAME prompt by specifying the 
pathname of the file or device from which the control stream is to be read. Then, either specify 
values or accept the default values for the remaining prompts. If the control stream is contained in 
the file .M.CONTROL, the linked output is to be written to the file .M.OBJECT, the Link Editor 
listing is to be written to the file .M.LIST, and an 80-character line with 59 lines per page is 
acceptable, respond as follows: 


Cl XLE 


EXECUTE LINK EDITOR 
CONTROL ACCESS NAME: .M.CONTROL 
LINKED OUTPUT ACCESS NAME: .M.OBJECT 
LISTING ACCESS NAME: .M.LIST 
PRINT WIDTH (CHARS): 80 
PAGE LENGTH: 59 
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To execute this command in a batch stream, include the characters of the command, all required 
and any optional prompts that are specified, and the responses to those prompts. The following 
batch command is equivalent to the interactive version shown previously: 


XLE CONTROL=.M.CONTROL, LINKED OUTPUT=.M.OBJECT, LISTING=.M.LIST 


Notice that you can accept the default values for the PRINT WIDTH and PAGE LENGTH prompts 
by omitting them from the batch command. Also, you can use abbreviated versions of the speci- 
fied command prompts. The abbreviation must be sufficient to uniquely identify the prompt. 
Often, only the first character of acommand prompt need be entered. For example, the following is 
equivalent to the previous example: 


XLE C=.M.CONTROL, LO=.M.OBJECT, LIST=.M.LIST 


A batch stream consists of one command or a series of commands in this format, preceded by the 
BATCH command and followed by the EBATCH command. The ie containing the batch command 
stream is the input file for the XB command. 


2.3.4.3 Interactive Execution of Batch Streams. Use the XB command to execute batch streams 
as background activities. After you enter the XB command and the batch stream begins execution, 
you can continue to execute SCI commands in foreground mode. After the batch stream com- 
- pletes, the completion message appears the next time you press the CMD key. To monitor batch 
stream execution, enter the Show Background Status (SBS) command from time to time. Also, you 
can view the listing file for the batch stream during the run. 


An example of the XB command is as follows: 


C1XB 


EXECUTE BATCH 
INPUT ACCESS NAME: pathnamea 
LISTING ACCESS NAME: pathnamea 


The INPUT ACCESS NAME is the pathname of the device or file that contains the batch stream. 
The LISTING ACCESS NAME is the pathname of the device or file that is to receive the results of 
the batch stream execution. This device or file must not be used by any command in the batch 


stream. 


2.3.4.4 Entering Programs From Sequential Devices. You can use any sequential file of program 
source code for input to the compilers or the assembler. If necessary, copy source code that has 
been key-punched on a card deck to a sequential disk file. Program source code, entered by the 
Text Editor or Copy Concatenate (CC) command, can be read from devices. An example of using 
the CC command to copy the source code from cards to a disk file is as follows: 


C] ce 


COPY/CONCATENATE 
INPUT ACCESS NAME(S): CRO1 
OUTPUT ACCESS NAME: .USER.SOURCE 
REPLACE?: NO 
MAXIMUM RECORD LENGTH: 
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2.4 DIRECTORY AND FILE STRUCTURE 


File management allows you to build, organize, and access directories and files. A file consists of 
a named collection of data. The data in the file can be generated by you (for example, source code 
or documentation) or by the system (for example, object code or listing files). A directory is a rela- 
tive record file that contains the information necessary to locate other files and describes the char- 
acteristics of those files. It does not contain user data. 


2.4.1 Establishing Volume Names 

Volume names are alphanumeric character strings of as many as eight characters that identify the 
disk on which a file is found. The first character of avolume name must be an alphabetic character. 
For example, VOL1 could be the volume name of adisk. 


The Initialize Disk Surface (IDS) command prepares the disk surface for initialization by the 
Initialize New Volume (INV) command. The IDS command must be performed prior to the first INV 
command. It is not necessary to perform another IDS before any further initializations of the disk. 


The INV command assigns volume names to disks. Once a volume is initialized by an INV com- 
mand, all access to files on that volume must include the volume name in the pathname or access 
name, unless the volume is the system disk or unless a device is specified. 


One disk drive on each system is designated to hold the system disk. The system disk contains all 
required operating system components, including the loader program, system program files, and 
temporary system files. The system disk is the default volume when no volume name is specified. 
For example, .PROOF designates a file named .PROOF on the system disk. 


2.4.2 Establishing Directories 
Each disk volume has a file directory named VCATALOG, to contain the volume table of contents. 
The files described in VCATALOG are data files or directory files (Figure 2-1). 


Directory files contain the names of, and pointers to, other files; they do not contain user data. 
Typically, related files are contained in a directory. Directories can also contain subdirectories. 
Both directories and subdirectories are created by the Create Directory File (CFDIR) command. A 
subdirectory can be created under a directory only after the directory has been created. 
For example, subdirectory VOL1.SOURCE.PROGRAMA cannot be created unless directory 
VOL1.SOURCE already exists. 


It is convenient to group related files into a single directory. For example, all source files for a pro- 
gram might be in a directory named VOL1.SOURCE.PROGRAMA,; all listings generated from 
assembly or compilation of source modules for this program might be in a directory named 
VOL1.LISTING.PROGRAMA. 


Do not assign file names that might be confused with system file names. Most system file or direc- 
tory names begin with S$. 
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LEVEL 2 USER FILES USER SYSTEM SYSTEM 
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DIRECTORIES 
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Figure 2-1. . Directory and File Structure 


2.4.3 Establishing Files 
After initializing a disk volume and creating directories and subdirectories, you can create files 
that are accessible either under the volume or under a directory or subdirectory. The following 
commands are available to create files: 

e Create Key Indexed File (CFKEY) 

° Create Relative Record File (CFREL) 


e Create Sequential File (CFSEQ) 
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° Create Program File (CFPRO) 
e Create Image File (CFIMG) 
e Create File (CF) 


The CF command requires the subsequent selection of a file type. 


2.5 PATHNAMES AND ACCESS NAMES 


A file on a disk volume is referenced by its pathname. A pathname is a concatenation of the 
volume name, names of the directory levels leading to the file (excluding VCATALOG), and the file 
name itself. Each component of a pathname cannot exceed eight characters in length. A complete 
pathname must not exceed 48 characters, including the periods used to separate directories, sub- 
directories, and file names. The components of the pathname are separated by periods, as in the 
following examples: 


VOL1.AGENCY.RECORDS 
MYDIRECT.MYDIRCTA.MYFILE 
VOLTWO.DEB 
EMPLOY01.USRA. PAYROLL 


EMPLOY01.USRB.CATALOGX.PAYROLL 


An access name can be a device name, volume name, or file pathname. For device names, you 
must use certain default names (except for special devices). Example device names include ST02 
for terminal number 2, LPO1 for line printer number 1, and DSO3 for disk number 3. 


You can reference a volume on which a file resides through either the device name or the volume 
name. Omitting the volume name and beginning the pathname with a period indicates that the file 
is on the system disk. Samples of valid names for devices and files are as follows: 


File Identifier Meaning 
CRO1 Device name 
DSO0O2.MYCAT.MYFILE Device name, directory name, file name 
.MYCAT.MYFILE System disk, directory name, file name 
VOLID.MYCAT.MYFILE Volume name, directory name, file name 
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2.6 SYNONYMS 


Synonyms are abbreviations of one of more characters in length that are commonly used in place 
of long pathnames or portions of pathnames. These synonyms are always available to foreground 
tasks. Background tasks receive a copy of the foreground synonyms when the background task is 
initiated. At terminals requiring log-on, user-defined synonyms are associated with the user’s ID 
and are available whenever that user logs on at any terminal. Use the Assign Synonym (AS) and 
Modify Synonym (MS) commands to define synonyms and to modify defined synonyms. When you 
enter a synonym in response to an SCI command prompt, the synonym is replaced by the actual 
text string. 


When an SCI command is executed in foreground mode, you can use asynonym only as the first or 
only component of a pathname (device name or file name). For example, if Ais asynonym for direc- 
tory VOL1.SOURCE and B is a synonym for PROGRAMA in that directory, AAPPROGRAMA is an 
acceptable file name. However, VOL1.SOURCE.B or A.B is not acceptable. 


/ 


2.7 FILE TYPES 


A file consists of a collection of data groupings called /ogica/ records. This division into logical 
records does not necessarily correspond to the physical division of data on disk or other media. 
Thus, in addition to logical records, files also have physical records. 


A logical record is the amount of information transferred in one (not multiple) Read or Write I/O 
request. A physical record is the amount of data actually transferred by the operating system 
during an I/O operation to the file. The ratio of the physical record size to the logical record size is 
called the blocking factor. The logical record length (LRECL) in a file can be constant or can vary, 
depending on the file type. 


Disk space is assigned in allocatable disk units (ADUs). An ADU is an integral number of disk sec- 
tors. The size of an ADU depends on disk capacity; larger disks have larger ADUs. An ADU is 
always smaller than a track. On some disks, ADUs are as small as one sector. 

The following file types are supported: sequential, relative record, and key indexed. 

2.7.1 Sequential Files . 

Sequential files are variable-record-length files whose records are always read, written, and 
accessed serially (that is, record 0 must be accessed first, record 1 must be accessed next, and so 
on). Some examples of using sequential files are as follows: 


e As an input file for card images. If a logical record length of 80 is specified, the sequen- 
tial file can be treated as acard reader by the program reading the file. 


e Asan output file. In this function, the file can resemble the line printer. 


e As alocation for listing files. 
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2.7.1.1 Sequential File Attributes. Sequential files have the following attributes: 
e Sequential file logical records must be an even number of bytes in length. 


e Sequential files can be created expandable. To extend the file, it must be opened in the 
open extend mode. 


e Record-level locking is supported. 


e Blank suppression and blank adjustment are allowed on sequential files that are used 
for input purposes. However, neither is performed on sequential files that are automati- 
cally created by COBOL. COBOL does not perform blank suppression or blank adjust- 
ment on sequential files so that they can be used in the I/O operation Rewrite. Rewrite 
verifies that the length of the record read has not changed before the rewrite is 
attempted. 


If the logical record length defined in the program is larger than the actual record read from the 
file, the characters in the buffer beyond those of the actual record are undefined. For example, if 
the defined record length is 80 and the file contains variable-length records with the specific 
record read having a length of 50, the buffer area described in the file record-description-entry con- 
tains the 50-character record plus 30 characters undefined. COBOL does not automatically initial- 
ize its buffer area prior to a read operation. When reading variable-length records, the program 
should initialize the buffer area prior to each read operation. 


Files assigned to the device name PRINT are created as sequential files with carriage control char- 
acters appended. With the appended characters, the logical record length Is six characters larger 
than that specified in the program. The six characters are split, with from one to four characters 
preceding the record, and from one to four characters following the record, with a maximum of six 
characters per record. 
2.7.1.2 Creating Sequential Files. Consider the following rules when creating sequential files: 

e Logical record length must be less than or equal to the physical record length. 


e Logical records can span sector boundaries. 


e Logical records can span physical records; thus, partial records are created in both 
physical records. 


e Logical records can span ADU boundaries. 
e Physical records must begin on sector boundaries. 


e Physical records beginning in the middle of an ADU cannot span the ADU boundary. 
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Figure 2-2 shows both a file description for a sequential file in a COBOL program and the creation 
of asequential file using the Create Sequential File (CFSEQ) SCI command. 


SELECT SEQ-EMPLOYEE 
ASSIGN TO RANDOM, ''EMPL'"' 
ORGANIZATION SEQUENTIAL 
ACCESS SEQUENTIAL 
FILE STATUS SEQ-STATUS. 


FD SEQ-EMPLOYEE LABEL RECORDS STANDARD. 
01 SEQ-RECORD. 


02 SOCTAL-SECURITY PIC X(9). 
02 EMPLOYEE-NAME. 

03 EMPLOYEE-FIRST-INITIAL PIC X. 

03 EMPLOYEE-SECOND-INITIAL PIC X. 

03 EMPLOYEE-LAST-NAME PIC X(20). 
02 REST-OF-DATA PIC X(113). 


CREATE SEQUENTIAL FILE 
PATHNAME: EMPL 
LOGICAL RECORD LENGTH: 144 
PHYSICAL RECORD LENGTH: 
INITIAL ALLOCATION: 
SECONDARY ALLOCATION: 
EXPANDABLE ?: YES 
BLANK SUPPRESS ?: NO 
FORCED WRITE ?: NO 


Figure 2-2. Sequential File Description and Creation 


To minimize wasted disk space, the physical record size should be an integral multiple or factor 
both of the ADU size and of the sector size. 
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The following figures illustrate the relationships between the logical record, physical record, sec- 
tor, and ADU sizes. In some instances, disk space is wasted; in others, no space is wasted, 
depending on the physical record size chosen. Each figure defines the relationship between logi- 
cal record, physical record, sector, and ADU sizes. The boxed information represents a linear 
description of the logical records on a file. Below the logical record are the physical record, sector, 
and ADU divisions of the data. 


Figure 2-3 indicates the relationship between the physical record, sector, and ADU sizes when the 
physical record size is less than the sector size and the sector size is less than the ADU size. In 
this case, logical records are spanning physical records. Space is wasted within each sector 
because the physical record must begin on the next sector boundary. 


Figure 2-4 indicates the relationship between physical record, sector, and ADU sizes when the 
physical record size is equal to the sector size and the sector size is less than the ADU size. In this 
case, logical records are spanning physical, sector, and ADU boundaries. 
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2277253 


Figure 2-3. Sequential Files: Physical Record Size < Sector Size < ADU Size 


| ror | noe | ros | nol fs | ros | noe | mor} [| roe | noo | nro | 
1 1 2 


PHYSICAL PHYSICAL PHYSICAL 
SECTOR SECTOR SECTOR 
AD 
NOTES: 


1. LOGICAL RECORD SPANS PHYSICAL RECORD AND SECTOR BOUNDARY 
2. LOGICAL RECORD SPANS PHYSICAL RECORD AND ADU BOUNDARY 










2277254 


Figure 2-4. Sequential Files: Physical Record Size = Sector Size < ADU Size 
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Figure 2-5 indicates the relationship between physical record, sector, and ADU sizes when the sec- 
tor size is less than the physical record size and the physical record size is less than the ADU size. 
In this case, the physical record is two times the sector size. One sector for every ADU is wasted 
because there is not enough space in the ADU to hold another physical record. 


Figure 2-6 indicates the relationship between physical record, sector, and ADU sizes when the 
physical record size is equal to the ADU size. When the physical record size is not specified at file 


creation, the default value used is the defined default of the directory on which the file is created. 
Logical records span physical records, sectors, and ADU boundaries. 
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Figure 2-5. Sequential Files: Sector Size < Physical Record Size < ADU Size 


jor | roe | ros | nol [+ | ros | noe | nov} | | nos | noo | ro | 
1 1 2 


PHYSICAL 
SECTOR —4 + SECTOR —| |+-— SECTOR 
NOTES$ 


LOGICAL RECORD SPANS PHYSICAL RECORD AND SECTOR BOUNDARY 
2. LOGICAL RECORD SPANS PHYSICAL RECORD AND ADU BOUNDARY 


2277256 


Figure 2-6. Sequential Files: Sector Size < Physical Record Size = ADU Size 
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Figure 2-7 indicates the relationship between physical record, sector, and ADU sizes when the 
physical record size is greater than the ADU size and the ADU size is greater than or equal to the 
sector size. In this case, space is wasted on the disk because the remaining space of the ADU is 
too small to contain another physical record. Therefore, the next physical record must begin on 
the next ADU boundary. Note that the logical record spans to the next physical record, which 
begins on the next ADU. 


2.7.2 Relative Record Files 

Relative record files are also called random-access files. Unlike sequential files, relative record 
files can be accessed in any order. Each record has a unique record number, which you specify to 
access that individual record. The operating system increments the caller’s record number after 
each read or write so that sequential access is permitted. One end-of-file (EOF) record is main- 
tained wherever it was last specified by a program. The range of record numbers is from zero to 
one less than the number of records in the file. The maximum number of records in a relative 
record file is 2 to the 24th power. The records are fixed in length, and the length must be specified 
during file creation. 


Relative record files are useful when each record in the file is already associated with a unique 
value ranging from 0 to n; for example, in an inventory file, the item number can be specified as the 
record number. Consequently, information about item number 1 can be obtained by accessing 
record number 1. 
2.7.2.1. Relative Record Attributes. Relative record files have the following attributes: 

e Relative record files can be accessed sequentially in ascending order. 

e Relative record files can be accessed randomly in any order. 


e Records of odd or zero length are not allowed. 


e All records are fixed in length, and the length must be specified during file creation. 
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Figure 2-7. Sequential Files: Physical Record Size > ADU Size = Sector Size 
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Variable length records are not allowed. 
Blank suppression and blank adjustment are not allowed. 


Deleted records in a relative record file are flagged by COBOL with a hexadecimal FF 
(>FF) in the first character of the record. These flagged records are ignored by COBOL 
during sequential read operations. Therefore, data records should not contain binary 
data in the first character position. The concept of deleted records is not recognized by 
the file management of the operating system. 


Record-level locking is Supported. 


Relative record files can be expanded by adding a record or records whose record 
number is greater than the highest record number currently in the file. During this opera- 
tion, any record between the current last record and the new last record is added to the 
file. Each of the deleted records has >FF in the first character position, flagging the 
records as being deleted. All records between the lowest and highest record numbers on 
the file must be present as either data records or deleted records (place holders) in order 
to locate any given record on arandom I/O request. 


Each record is uniquely identified by its position. The operating system increments the caller’s 
record number after each read or write to allow sequential access. One EOF record is maintained 


wherever 
requested 


it was last specified by a program. To access record number n, record number n is 
. The range of record numbers is from 0 to one less than the number of records in the 


file. The maximum number of records in a relative record file is 2 to the 24th power. 


2.7.2.2 C 
record file 
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reating Relative Record Files. Consider the following rules when creating relative 
S: | 


Logical record length must be less than or equal to the physical record length. 
Logical records can span sector boundaries. 

Logical records cannot span physical records. 

Physical records must begin on sector boundaries. 

Physical records beginning in the middle of an ADU cannot span ADU boundaries. 


Physical records should be an integral multiple of sectors. 
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Figure 2-8 shows both a file description for a relative record file in a COBOL program and the crea- 
tion of arelative record file using the Create Relative Record File (CFREL) SCI command. 


SELECT REL-EMPLOYEE 
ASSIGN TO RANDOM, "EMPL" 
ORGANIZATION RELATIVE 
ACCESS RELATIVE 
RELATIVE KEY REL-KEY 
FILE STATUS REL-STATUS. 


FD REL-EMPLOYEE LABEL RECORDS STANDARD. 
01 REL-RECORD. 


02 SOCIAL-SECURITY PIC X(9). 
O02  EMPLOYEE-NAME. 

03 EMPLOYEE-FIRST-INITIAL PIC X. 

03 EMPLOYEE-SECOND-INITIAL PIC X. 

03 EMPLOYEE-LAST-NAME PIC X(20). 
02 REST-OF-DATA PIC X(113). 


WORKING-STORAGE SECTION. 
01 REL-KEY PIC 9(6). 


CREATE RELATIVE RECORD FILE 
PATHNAME:’ EMPL 

LOGICAL RECORD LENGTH: 144 
PHYSICAL RECORD LENGTH: 
INITIAL ALLOCATION: 
SECONDARY ALLOCATION: 

EXPANDABLE ?: YES 

FORCED WRITE ?: NO 


Figure 2-8. Relative Record File Description and Creation 
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To minimize wasted disk space, choose the physical record length (PRECL) such that it is one of 
the following: either it is the largest integral multiple of the logical record size that is less than or 
equal to the ADU size, or it is an integral multiple of the ADU size. 


The following figures illustrate the relationships between the logical record, physical record, sec- 
tor, and ADU sizes. In all cases, some disk space is wasted; the amount depends on the physical 
record size chosen. Each figure defines the relationship between logical record, physical record, 
sector, and ADU sizes. The boxed information represents a linear description of the logical records 
on afile. Below the logical records are physical record, sector, and ADU divisions of the data. 


Figure 2-9 indicates the relationship between physical record, sector, and ADU sizes when the 
physical record size is less than the sector size, and the sector size is less than the ADU size. 
Space is wasted within each sector because the physical record must begin on the next sector 
boundary. 


PHYSICAL - PHYSICAL —| PHYSICAL + 
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NOTES: 
1. LOGICAL RECORD CANNOT SPAN PHYSICAL RECORD 
2. PHYSICAL RECORD MUST BEGIN ON SECTOR BOUNDARY 






ADU 


2277258 


Figure 2-9. Relative Record Files: Physical Record Size < Sector Size < ADU Size 
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Figure 2-10 indicates the relationship between physical record, sector, and ADU sizes when the 
physical record size is equal to the sector size and the sector size is less than the ADU size. In this 
case, if a logical record does not fit into the remaining space of a physical record, the space is 
unused and the logical record begins in the next physical record. 


Figure 2-11 indicates the relationship between physical record, sector, and ADU sizes when the 
sector size is less than the physical record size and the physical record size is less than the ADU 


size. In this case, the physical record is two times the sector size. More than one sector for every 
ADU is wasted because there is not enough space in the ADU to hold another physical record. 
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Figure 2-10. Relative Record Files: Physical Record Size = Sector Size < ADU Size 
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Figure 2-11. Relative Record Files: Sector Size < Physical Record Size < ADU Size 
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Figure 2-12 indicates the relationship between physical record, sector, and ADU sizes when the 
sector size is less than the physical record size and the physical record size is equal to the ADU 
size. When the physical record size is not specified at file creation, the default value used is the 
defined default of the directory on which the file is created. Logical records can span only sector 
and ADU boundaries. If a logical record does not fit into the space of a physical record, the space 
is unused and the logical record begins on the next physical record. 


Figure 2-13 indicates the relationship between physical record, sector, and ADU sizes when the 
physical record size is greater than the ADU size and the ADU size is greater than or equal to the 
sector size. In this case, space is wasted on the disk because the remaining space of the ADU is 
too small to contain another physical record. Therefore, the next physical record must begin on 
the next ADU boundary. Note that the logical record must span to the next physical record, which 
begins on the next ADU. 
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Figure 2-12. Relative Record Files: Sector Size < Physical Record Size = ADU Size 
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Figure 2-13. Relative Record Files: Physical Record Size > ADU Size = Sector Size 


2270521-9701 9.19 


Operating System Concepts 


2.7.2.3 Special Types of Relative Record Files. There are three special types of relative record 
files available: directory, program, and image files. These files provide special interface mecha- 
nisms that are used primarily for memory images, memory swapping, and diagnostic dumps. 

° Directory files — Contain names of and pointers to other files 


° Program files — Contain program images and an internal directory of the images 


e Image files — Special-purpose files used primarily by the operating system for memory 
images, memory swapping, and diagnostic dumps 


None of these special types of relative record files can be accessed through COBOL programs. 
2.7.3 Key Indexed Files (KIF) 
A KIF allows random access to its records via a key. The key is acharacter string of up to 100 char- 
acters, located in a fixed position within each file record. From 1 to 14 individual keys can be speci- 
fied. For example, the records in an employee file can be accessed by keys that indicate the 
employee’s ID, name, and social security number. 
Keys can overlap one another, with certain restrictions, within the record. Although the keys can 
be structured anywhere within a record, they must appear in the same relative position in all 
records in the file. One key must be specified as the primary key; the other keys are secondary 
keys. The primary key must be present in all records, but secondary keys are optional. 
In addition to supporting random access, KIFs include the following characteristics: 

e Records can be accessed sequentially in the sort order of any key. 


e At file creation, any key can be designated as allowing duplicates, which means that two 
or more records in the file can have the same value for this key. 


e At file creation, any key except the primary key can be designed as being modifiable. 
This means that when a record is being rewritten, the key value may change. Also, a sec- 
ondary key value that is missing in the record can be added later on a rewrite. 

e Alternate keys cannot overlap the primary key. 

e Alternate keys cannot overlap the first character position of any other alternate key. 


° Records can be of variable length. 


e A start is allowed on the first portion of a key. 
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e Records are automatically blank-suppressed. 
@ Record-level locking is supported. 
e The file is expanded dynamically allocating space when needed. 


e File integrity is maintained through pre-image logging of modified blocks. Before a 
record is modified on disk, it is copied to a backup area in the file overhead area. Conse- 
quently, system failures cause the loss of only the last I/O operation. 


e Records of odd or zero length are not allowed. 


The physical record length must be greater than or equal to 22 plus the logical record length. For 
maximum efficiency, the physical record length should equal the ADU size of the disk on which 
the file is to reside or a multiple of the ADU size. 


To ensure that a sufficient buffer is allocated at execution time, the COBOL program source 
module must define the maximum record size in the file description. If the file was created using 
the average blank-suppressed logical record length, an invalid record length error is returned on an 
Open request. Under these conditions, the USE procedures of the DECLARATIVES can be speci- 
fied to intercept and ignore the invalid record length error returned on the OPEN request. (Refer to 
Section 12 for more details on intercepting and ignoring 1/O errors.) The Ti COBOL Reference 
Manual contains a detailed explanation of the USE and OPEN statements and the keyword 
DECLARATIVES. 


If aKIF is created with the Create Key Indexed File (CFKEY) command and the KIF is to be used in 
COBOL programs, the keys must be defined in the following order: 


e Primary key 

e Alternate key with the lowest displacement 

e Alternate key with the next lowest displacement 
e Alternate key with the highest displacement 


The number of keys must exactly match the number of keys declared in the source program. The 
key lengths, flags (modifiable and duplicate attributes), and offsets must also match those 
declared in the program. The primary key cannot have duplicates or be modifiable. Alternate keys 
must all be modifiable and can have duplicates only when the duplicates are declared as such in 
the program. Alternate keys can overlap in any character position except the first, thereby 
preventing any two keys from having the same displacement. Alternate keys must never overlap 
the primary key in any character position. If any of the preceding conditions fails to match at open 
time, an invalid open error occurs (status code 94). 
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Figure 2-14 shows both the file description for a KIF in a COBOL program and the creation of the 
KIF using the Create Key Indexed File (CFKEY) SCI command. After the KIF is created, use a Map 
Key Indexed File (MKF) SCI command to view the key attributes. 


2-22 


SELECT EMPLOYEE-MASTER 

ASSIGN TO RANDOM, "EMPL" 

ORGANIZATION INDEXED 

ACCESS RANDOM 

RECORD KEY SOCIAL-SECURITY 

ALTERNATE RECORD KEY EMPLOYEE-NAME 

ALTERNATE RECORD KEY EMPLOYEE-LAST-NAME 
WITH DUPLICATES 

FILE STATUS EMPLOYEE-STATUS. 


FD EMPLOYEE-MASTER LABEL RECORDS STANDARD. 
01 EMPLOYEE-RECORD. 


02 SOCIAL-SECURITY PIC X(9). 
02 EMPLOYEE-NAME. 

03 EMPLOYEE-FIRST-INITIAL PIC X. 

03 EMPLOYEE-SECOND-INITIAL PIC X. 

03 EMPLOYEE-LAST-NAME PIC X(20). 
02 REST-OF-DATA PIC X(113). 


CREATE KEY INDEXED FILE 
PATHNAME: EMPL 
LOGICAL RECORD LENGTH: 144 
PHYSICAL RECORD LENGTH: 
INITIAL ALLOCATION: 
SECONDARY ALLOCATION: 
MAXIMUM SIZE: 1000 


KEY DESCRIPTION FOR KEY NUMBER 1 
START POSITION: 1 
KEY LENGTH: 9 
DUPLICATES?: NO 
MODIFIABLE?: NO 
ANY MORE KEYS?: YES 


Figure 2:14. KIF Description, CFKEY Creation, and MKF Listing (Sheet 1 of 2) 
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KEY DESCRIPTION FOR KEY NUMBER 2 
START POSITION: 10 
KEY LENGTH: 22 
DUPLICATES?: NO 
MODIFIABLE?: YES 
ANY MORE KEYS?: YES 


KEY DESCRIPTION FOR KEY NUMBER 3 
START POSITION: 12 
KEY LENGTH: 20 
DUPLICATES?: YES 
MODIFIABLE?: YES 
ANY MORE KEYS?: NO 


FILE MAP OF .MASTER 
TODAY IS 09:00:41 FRIDAY, SEPTEMBER 26, 1980 


KEYS: 
START DUPLICATES 
KEY COLUMN LENGTH MODIFIABLE ALLOWED 
1 1 9 N N 
2 10 22 Y N 
3 12 20 Y Y 


Figure 2-14. KIF Description, CFKEY Creation, and MKF Listing (Sheet 2 of 2) 
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Building a COBOL 
Source Program Module 





3.1 GENERAL 


The initial phase of COBOL program development involves building the program source module. 
This process requires preparing the necessary directories and files and entering the program 
source code (presumably via the text editor). 


3.2 DIRECTORY AND FILE PREPARATION 


Table 3-1 lists and describes the files that are typically used when developing and executing 
COBOL programs. (Optional procedures may require additional files.) 


Table 3-1. Files Required for Program Development 
File Description 


Source file Contains program source module code, which is created by 
| using the text editor and input to the COBOL compiler. 


Object file Contains program object module code, which is output from the 
COBOL compiler and input to the link editor or the Execute 
COBOL Program (XCP) command. (Refer to Section 6 for details 
about the XCP command.) 


Compiler listing file Contains the program source module listing with any errors 
detected by the COBOL compiler. The COBOL compiler pro- 
duces this listing. 

Link control file Contains instructions for the link editor, such as which object 
modules, run-time libraries, user libraries, and external routines 
are to be linked. 

Link editor listing Contains the link map, which is produced by the link editor. 


Program file The user’s program file; contains programs in image format. 
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3.3 ALTERNATE DIRECTORY STRUCTURES 


File organization varies according to the requirements of a specific installation. Several methods 
of organization are possible, including the following: 


e Organization according to related programs 
e Organization according to file type 


3.3.1 Organization by Programs 

When files are organized by programs, all necessary files for a given program are located in a 
single directory; the directory name is associated with the program name. In the following 
example, all files for PROGRAMA are in directory PROGA, and all files for PROGRAMB are in direc- 
tory PROGB: | 


VOLUME.PROGA.SRCFILE VOLUME.PROGB.SRCFILE 
VOLUME.PROGA.OBJFILE VOLUME.PROGB.OBJFILE 
VOLUME.PROGA.LSTFILE VOLUME.PROGB.LSTFILE 
VOLUME.PROGA.CTRFILE VOLUME.PROGB.CTRFILE 
VOLUME .PROGA.LINKMAP VOLUME .PROGB.LINKMAP 
VOLUME.PROGA.PRGFILE VOLUME.PROGB.PRGFILE 


3.3.2 Organization by File Type 

In the diagram in Figure 3-1, files are arranged under a single directory (PROJECT). Subdirectories 
are created for source, object, listing, link control, and link map files. This type of file organization 
allows for anetwork of programs where the same module may be linked into different programs. 


PROJECT 
SOURCE OBJECT “y “i LINKMAP PROG 
ae MOD1 MOD1 LINKA LINKA 
~T MOD2 MOD2 LINKB LINKB 
MOD3 MOD3 MOD3 


Figure 3-1. Organization of Files in Directory 


3.4 CREATING DIRECTORIES AND FILES 


To create a directory or subdirectory, enter the Create Directory File (CFDIR) SCI command. The 
following display appears: 


CREATE DIRECTORY FILE 
PATHNAME: pathnamea (*) 
MAX ENTRIES: integer 
DEFAULT PHYSICAL RECORD SIZE: Linteger] 
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Assume that the pathname has a volume name of VOLUME and a directory name of SOURCE. 
SOURCE will contain all source files for programs. Respond to the prompt PATHNAME by entering 
VOLUME.SOURCE. Respond to the prompt MAX ENTRIES by entering the maximum number of 
entries (files and subdirectories) that the directory may contain. 


Files that are output from utilities (such as the text editor or the compiler) need not be created 
prior to executing the utility; the utility automatically creates the files if they do not already exist. 
However, pathnames must be specified before termination of the utility. Pathnames must be 
unique unless the information in a file is being replaced. Directories are not automatically created. 
The compiler automatically creates the compiler listing file and the object file if they do not 
already exist. Since the link control file is a utility input file, it must be created (usually via the text 
editor) prior to executing the link editor. 


3.5 BUILDING THE PROGRAM MODULE VIA THE TEXT EDITOR 


COBOL source program modules are generated on aVDT using SCI. Editing on the VDT occurs on 
a page basis; each page can have any consecutive 24 lines displayed on the screen. You can edit 
any record displayed on the screen by positioning the cursor anywhere within the line that con- 
tains the record. You can insert records between any lines, and you can insert or delete them in 
any order. Also, you can insert, delete, or modify characters within a line. Use the Show Line (SL) 
SCI command and the F2 (Roll Up Function), F1 (Roll Down Function), Previous Line and Next Line 
control keys to access specific lines, records, or characters. 


To enter a source program module via the text editor (assuming a directory has been created pre- 
viously), enter the Initiate Text Editor (XE) SCI command, and press the Return key. The following 
display appears: 


EXECUTE TEXT EDITOR 
FILE ACCESS NAME: 
EXCLUSIVE EDIT?: YES 
LINE LENGTH: 80 


Press the Return key to indicate that no file exists. The Text Editor clears the VDT screen and dis- 
plays the following in the first four columns of row 1 with the cursor in column 1, row 1: 


*EQOF 


This display indicates that the end-of-file (EOF) record is the only record in the file. To begin 
entering data, press the Return key. Notice that a blank line appears before the *EOF notation. 
Press the Command key and enter the Modify Tabs (MT) SCI command to adjust the tabs for cod- 
ing. Set the tabs at 1, 8, 12, 24, and 73 (standard tabs for a COBOL coding sheet), and press the 
Return key. Now, begin entering the source code shown in Figure 3-2. Each time you enter a new 
line and press the Return key, a new blank line appears beneath the previously entered line of 
information. 
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IDENTIFICATION DIVISION. 


PROGRAM-ID. 


SOURCE-COMPUTER. 
OBJECT-COMPUTER. 


FUNCTION. 
THIS PROGRAM WAS DESIGNED AS A FUNCTIONAL 
DEMONSTRATION TEST FOR CHECKING FUNCTION KEY 
ACCESSIBILITY. 

FUNCTION KEYS MUST HAVE BEEN ACTIVATED VIA THE 


SCI EXECUTION COMMAND. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 


DATA DIVISION. 


WORKING-STORAGE 
ACTION PIC 
FUNC 


X 
XX 


HEADS. 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


Figure 3-2. Sample COBOL Program Source Module — 
VOLUME.SOURCE.EXAMPLE2 (Sheet 1 of 2) 


FILLER 
"01 - 


FILLER 
"04 - 
FILLER 
"05 - 
FILLER 
106 = 
FILLER 
"07 = 
FILLER 
"08 = 
FILLER 
"Q9 _ 
FILLER 
"10 = 
FILLER 
“44 = 
FILLER 
"12 - 
FILLER 
"13 - 
FILLER 
"14 = 
FILLER 
"40 _ 


PIC 
PIC 
PIC 


TI-990. 
TI-990. 


SECTION. 


XX. 
99. 


S99 COMP-1. 
S99 COMP-1. 


PIC 


rq", 


PIC 


aoe 


PIC 


F3", 


PIC 


FAM, 


PIC 


FS", 


PIC 


FON. 


PIC 


Fz". 


PIC 


F8", 


PIC 


Fo", 


PIC 


X(21) 
X(21) 
X(21) 
(21) 
X(21) 
X(21) 
X(21) 
X(21) 
X(21) 


X (21) 


FIO". 


PIC 


X (21) 


Fqq", 


PIC 


X(21) 


F12". 


PIC 


X (21) 


ee 


PIC 


X (21) 


F14", 


PIC 


X (21) 


Command''. 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 


VALUE 
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02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


FILLER 
ay Xe) = 
FILLER 
"moo = 
FILLER 
mos os 
FILLER 
iby = 
FILLER 
mos = 
FILLER 
"NS6 = 
FILLER 
"m7 aa 
FILLER 
"58 = 
FILLER 
"59 = 
FILLER 
167 = 
FILLER 
"64 = 
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PIC X(21) VALUE 
Print". 

PIC X(€21) VALUE 
Previous Line". 
PIC X(21) VALUE 
Next Line’. 

PIC X(21) VALUE 
Home". 

PIC X(€21) VALUE 
Next Field''. 
PIC X(€21) VALUE 
Previous Field". 
PIC X(€21) VALUE 
Skip"; 

PIC X(€21) VALUE 
Forward Tab". 
PIC X(21) VALUE 
Initialize Input". 
PIC X(21) VALUE 
Erase Input". 
PIC X(€21) VALUE 
Enter; 


01 HEADINGS REDEFINES HEADS. 

O02 HEAD PIC X(21) OCCURS 26. 
PROCEDURE DIVISION. 
MAIN-PROG. 
RD-INPUT. 


DISPLAY 


PERFORM 
BY 1 
PERFORM 
BY 1 
DISPLAY 
PERFORM 


LINE 1 


STOP RUN. 
GET-FUNC. 
ACCEPT ACTION LINE 20 POSITION 40 


"COBOL FUNCTION KEYS TEST" 


POSITION 20 ERASE. 


DSP-13 THRU E-13 VARYING X FROM 1 

UNTIL X > 13. 

DSP-26 THRU E-26 VARYING X FROM 14 

UNTIL X > 26. 

"DEPRESS DESIRED KEY" LINE 20 POSITION 20. 
GET-FUNC UNTIL ACTION = ''X"'. 


ON EXCEPTION FUNC 


DISPLAY FUNC LINE 20 POSITION 40. 
DISPLAY "HIT 'CR' TO CONTINUE, 'X' TO STOP" 
LINE 22 POSITION 20. 

ACCEPT ACTION LINE 22 POSITION 54. 


DISPLAY " '' LINE 20 POSITION 40. 
DSP-13. . 

COMPUTE XX = X + 1. 

DISPLAY HEAD (X) LINE XX POSITION 20. 
E-13. EXIT. 
DSP-26. 


COMPUTE XX = X - 12. 

DISPLAY HEAD (X) LINE XX POSITION 45. 
E-26. EXIT. 
END PROGRAM. 


Figure 3-2. Sample COBOL Program Source Module — 
VOLUME.SOURCE.EXAMPLE2 (Sheet 2 of 2) 
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After entering the program source module, check for errors. To return to the first page of the 
source code, press the Command key and enter the SL command. The following display appears: 


SHOW LINE 
LINE: 1 


Press the Return key to accept the initial value of 1. To review the source code, use the F1 and F2 
keys. Each time the F1 key is pressed, the display scrolls forward; each time the F2 key is pressed, 
the display scrolls backward. To change the number of lines that are scrolled, enter the Modify 
Roll (MR) SCI command, and press the Return key. The following display appears: 


MODIFY ROLL 
NUMBER OF LINES TO ROLL: 23 


A different value may appear as the initial value of this command prompt. In any case, the 
response to this prompt should be 23. This allows the last line of the display to appear as the first 
line on the next display when the F1 key is pressed or the first line of the display to appear as the 
last line on the next display when the F2 key is pressed. Now, press the Return key. 


Certain keys can be helpful when verifying the source code. Each of these keys may be used in 
conjunction with the Repeat key. The keys and their functions are as follows: 


e Previous Line — Moves the cursor up one line from the current line. If the cursor is on 
the top line, the screen scrolls backward one line. 


e Next Line — Moves the cursor down one line from the current line. If the cursoris on the 
bottom line, the screen scrolls forward one line. 


e Previous Character — Moves the cursor to the left one character from the current posi- 
tion of the cursor. 


e Next Character — Moves the cursor to the right one character from the current position 
of the cursor. 


If no errors are found, press the Command key again and enter the Quit Edit (QE) SCl command. 
The following display appears: 


QUIT EDIT 
ABORT?: NO 


A YES response to the prompt ABORT? terminates the text editor without any modification to the 
input file; if no input file was specified in the XE command, no new file is created. Any modifi- 
cations made or data entered are lost when the response to the ABORT? prompt is YES. Accept 
the initial value (NO) and press the Return key. The following display appears: 


QUIT EDIT 
OUTPUT FILE ACCESS NAME: VOLUME.SOURCE.EXAMPLE2 
REPLACE?: YES 
MOD LIST ACCESS NAME: 
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Enter a valid pathname such as VOLUME.SOURCE.EXAMPLE2 for the output file access name, 
and press the Return key. The response to the prompt REPLACE? determines whether the desig- 
nated output file is to be replaced by the edited file. If the response is NO and the output file 
exists, the edited file does not replace the existing file. If the response is NO and no file exists by 
that name, a new file is created. If the response is YES, the edited file replaces the specified file; if 
no file exists by that name, a new file is created. Press the Return key in response to the prompt 
MOD LIST ACCESS NAME. The program is now entered and has a file name of 
VOLUME.SOURCE.EXAMPLE2. 


When you are editing a source file, the functions of various keys can be helpful. For instance, the 
F4 key duplicates information on a previous line to a preset tab when the cursor is placed beneath 
the line to be copied. The F5 key acts as a tab key and clears the line to the preset tab positions, 
and the F6 key displays or suppresses line numbers. When line numbers are displayed, only 74 
characters of each record are displayed. When line numbers are suppressed, a full 80 characters 
are displayed. Other keys of importance include the following: 
e Initialize Input key — Inserts a blank line above the line containing the cursor 
e Insert Character key — Inserts characters at the current cursor position and moves all 
characters that are to the right of the cursor one position to the right (truncates charac- 
ters if line is full) 


e Delete Character key — Deletes characters at the current cursor position and moves all 
characters that are to the right of the cursor one position to the left 


e Home key — Positions the cursor in row 1, column 1 of the display 
e Erase Field key — Replaces all characters in a line with blanks 


e Erase Input key — Deletes the line on which the cursor is positioned and rolls up all 
lines beneath it 


Certain SCI commands can also be helpful when editing a file. These commands include the 
following: 


e FS (Find String) — Locates a predefined string in the source file for a specified number 
of occurrences 


e DL (Delete Lines) — Deletes certain lines specified by the user 


e ML (Move Lines) — Moves specified lines in a file and inserts them after a specified line 
number 


e CL (Copy Lines) — Duplicates the specified lines and inserts them after a specified line 
number 


e IF (Insert File) — Inserts an existing file into the file that is being edited, after a specified 
line number 
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4.1 GENERAL 


Compilation is the process of translating a COBOL program source module into a series of instruc- 
tions (interpretive object code) comprehensible to the computer. The interpretive object code is 
interpreted by the COBOL run-time interpreter at execution time. (Refer to Section 5 for a descrip- 
tion of the COBOL run-time interpreter.) 


4.2 COMPILER EXECUTION 


To execute the COBOL compiler, enter the Execute COBOL Compiler in Background (XCC) com- 
mand for background compiles or the Execute COBOL Compiler in Foreground (XCCF) command 
for foreground compiles. The XCC command allows the terminal to be used for foreground pur- 
poses during the background compilation. 


4.2.1 Execute COBOL Compiler in Foreground (XCCF) 
For the XCCF command, the following prompts appear with the indicated initial values: 


EXECUTE COBOL COMPILER FOREGROUND <VERSION: L.R.V YYDDD> 
SOURCE ACCESS NAME: pathnamed 
OBJECT ACCESS NAME: pathnamead 
LISTING ACCESS NAME: pathnamead 
OPTIONS: [{D/1I/M/0/X}] 


PRINT WIDTH: integer (80) 
PAGE SIZE: integer (55) 
PROGRAM SIZE (LINES): integer (1000) 


Press the Return key after each entry. 


SOURCE ACCESS NAME — Enter the input device name, pathname, or synonym for the file that 
contains the source module to be compiled. 


OBJECT ACCESS NAME — Enter the pathname or synonym of the output object file. The compiler 
places the generated object code in the object file. The pathname must refer to a mass storage file 
with relative record organization. If the file does not exist, the compiler automatically creates a rel- 
ative record file for the object file. If the file exists but is not a relative record file, the compiler ter- 
minates and an error is generated. (Refer to Appendix C for a listing of the compiler error 
messages.) If DUMY is specified for the object access name, the output object file is not 
generated. 


LISTING ACCESS NAME — Enter the listing device name, pathname or synonym. The name 
entered is the name of the device or sequential file to which the compiler outputs the requested 
listings. If a file is specified and does not exist, the compiler automatically creates a sequential file 
for the listing file. Enter ME to have the listing displayed on the screen as it is generated. 
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OPTIONS — To request options, enter (without intervening commas) one or more of the characters 
listed in Table 4-1. 


Table 4-1. COBOL Compiler Options 


Character Option 
D Debug 
| Information Message 
M Data Maps 
O List Object 
X Cross-Reference Listing 


Entering the M option causes a listing similar to Figure 4-1. 


The order in which the options are listed is not important. However, invalid options generate warn- 
ings and then are ignored. Descriptions of the options are as follows: 


e Debug Option (D) — Causes the compiler to compile source statements that have a D in 
character position seven, along with rest of the statements in the program source 
module. Otherwise, the source statements with D in position seven are treated as 
comments. 


e Information Message Option (I) — Causes the compiler to list any informative mes- 
sages. These messages are not errors or warnings. See Table B-3 in Appendix B for the 
list of informative messages. 


e Data Maps Option (M) — Causes the data map to be listed as part of the compiler listing 
(listing access name). Otherwise, no data map is listed. Refer to Appendix E for a 
COBOL object listing example including data maps. 


e List Object Option (O) — Causes the compiler to include the object code in the listing 


file, following the listing of the corresponding source statement. Refer to Appendix E for 
a COBOL object listing example including object code. 
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e Cross-Reference Listing Option (X) — Causes the compiler to produce across-reference 
listing following the source listing or data maps if requested. Data names, index names, 
condition names, file names, section names, and paragraph names (contained in the 
Procedure Division of the program) are listed in the cross-reference. The line numbers of 
all appearances of a name are printed to the right of the name. When a line number is 
enclosed in slashes (/nnnn/), the statement on that line defines the item. When a line 
number is enclosed in asterisks (*nnnn*), the statement on that line may alter the con- 
tents of the item. When a line number is enclosed in blanks (nnnn), the statement on 
that line references the item. 


PRINT WIDTH — Enter the appropriate print width to specify the number of characters to be for- 
matted on aline of the listing. The compiler truncates the compiler listing lines if the print width is 
less than the compiler-generated line length. The initial value print width is 80 positions. 


PAGE SIZE — Enter the maximum number of print lines per page for the compiler listing file. The 
initial value page size is 55 lines per page. 


PROGRAM SIZE (LINES) — Enter an estimate of the number of program source module lines con- 
tained in the program source module. This estimate determines the amount of initial memory used 
in the compilation. If more memory is requested, compilation is faster provided memory is avail- 
able. The initial value program size is 1000 lines. 


After the program module is compiled, if an error occurs, correct the error and recompile the 
source module before attempting to link edit or execute the code. When the compilation com- 
pletes successfully, the following message appears: 


COBOL COMPILER COMPLETED, 0 ERRORS, O WARNINGS 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 
SOURCE ACCESS NAME: MANUAL.PG.SRC.F1IG0401 
OBJECT ACCESS NAME: DUMY 
LISTING ACCESS NAME: MANUAL.PG.LST.FIG0401 
OPTIONS: M 
PRINT WIDTH: 80 
PAGE SIZE: 55 


PROGRAM SIZE (LINES): 1000 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 


LINE DEBUG PG/LN | ne eee ee ee ee ee ee re eee ee ee ee 


1 IDENTIFICATION DIVISION. 

2 PROGRAM-ID. FUNCTION. 

3 * THIS PROGRAM WAS DESIGNED AS A FUNCTIONAL 

4 * DEMONSTRATION TEST FOR CHECKING FUNCTION KEY 

5 * ACCESSIBILITY. 

6 * FUNCTION KEYS MUST HAVE BEEN ACTIVATED VIA THE 

4 * SCI EXECUTION COMMAND. 

8 ENVIRONMENT DIVISION. 

9 CONFIGURATION SECTION. 

10 SOURCE-COMPUTER. TI-990. 

11 OBJECT-COMPUTER. TI-990. 

12 DATA DIVISION. 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 
LINE DEBUG PG/LN Bisse Bieta ear ar af lo asa tes Sere Grate came aise elo eRe Sere ie ee GIS Oe 

13 / 

14 WORKING-STORAGE SECTION. 

15 01 ACTION PIC XX. 

16 01 FUNC PIC 99. 

17 01 X PIC S99 COMP-1. 

18 01 XX PIC S99 COMP-1. 

19 01 HEADS. 

20 O02 FILLER PIC X(€21) VALUE 

21 BOL Fi, 

22 O02 FILLER PIC X(21) VALUE 

23 id Ue 

24 O02 FILLER PIC X(€21) VALUE 

25 MOS) = FS! 

26 O02 FILLER PIC X(21) VALUE 

27 "04 - FA"," 

28 O02 FILLER PIC X(21) VALUE 

29 "05. = Foss 

30 O02 FILLER PIC X(€21) VALUE 

31 "06 - Fé". 

32 O2 FILLER PIC X(21) VALUE 

33 107) Sb, 


Figure 4-1. Sample COBOL Compiler Listing (Sheet 1 of 4) 


4-4 


1 


2270521-9701 


DXCBL 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 


FILLER PIC X(21) VALUE 
"08 - F8". 
FILLER PIC X(21) VALUE 


"09 - FO". 
FILLER PIC X(21) VALUE 
"10 - F10". 


FILLER PIC X(21) VALUE 
"qq = FI", 
FILLER PIC X(21) VALUE 


"12 - F412", 
FILLER PIC X(21) VALUE 
"13 - F13". 


FILLER PIC X(21) VALUE 
"dh - F14". 

FILLER PIC X(€21) VALUE 
"40 - Command". 

FILLER PIC X(€21) VALUE 
"49 - Print’. 

FILLER PIC X(21) VALUE 
"52 - Previous Line’. 
FILLER PIC X(€21) VALUE 
"53 - Next Line’. 
FILLER PIC X(€21) VALUE 
"54 - Home''. 

FILLER PIC X(21) VALUE 
"55 - Next Field''. 
FILLER PIC X(€21) VALUE 
"56 - Previous Field’. 
FILLER PIC X(€21) VALUE 
"57 - Skip". 

FILLER PIC X(€21) VALUE 
"58 - Forward Tab''. 
FILLER PIC X(€21) VALUE 


"59 - Initialize Input". 


FILLER PIC X(€21) VALUE 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 


OPT=M 


Compilation 


LINE DEBUG PG/LN Cee eae ee ae eee ee ee ee eee ee ee ee ee ee ee ee ee ee eae 
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02 


"61 - Erase Input". 
FILLER PIC X(21) VALUE 
"64 - Enter". 


01 HEADINGS REDEFINES HEADS. 


O2 HEAD PIC X(21) OCCURS 26. 


Figure 4-1. 
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DEBUG 


>0000 
>0002 
>0002 


>000C 


>0020 


>0034 
>003C 
>0046 
>0048 
>0048 


>005E 


>0066 
>O06E 
>0078 
>0078 
>O07E 
>O008E 
>0090 
>0090 
>0096 
>00A6 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 


PG/LN 


Figure 4-1. 


/ 


OPT=M 


Bisnis Bias oo bw 8 oak cee Bye O evaore: @ ieee wR ane ate Wa gre ae ane oa oer el ders oleae onete 
PROCEDURE DIVISION. 
MAIN-PROG. 
RD-INPUT. 
DISPLAY "'COBOL FUNCTION KEYS TEST" 
LINE 1 POSITION 20 ERASE. 
PERFORM DSP-13 THRU E-13 VARYING X FROM 1 
BY 1 UNTIL X > 13. 
PERFORM DSP-26 THRU E-26 VARYING X FROM 14 
BY 1 UNTIL X > 26. 
DISPLAY "DEPRESS DESIRED KEY" LINE 20 POSITION 20. 
PERFORM GET-FUNC UNTIL ACTION = ''X"'. 
STOP RUN. 
GET-FUNC. 


ACCEPT ACTION LINE 20 POSITION 40 
ON EXCEPTION FUNC 
DISPLAY FUNC LINE 20 POSITION 40. 
DISPLAY "HIT "CR' TO CONTINUE, ‘X* TO STOP" 
LINE 22 POSITION 20. 
ACCEPT ACTION LINE 22 POSITION 54. 
DISPLAY " '" LINE 20 POSITION 40. 


DSP-13. 


E=15: 


COMPUTE XX = X + 1. 
DISPLAY HEAD (X) LINE XX POSITION 20. 
EXIT. 


DSP-26. 


E-26. 
ZZZZZZ END PROGRAM. 


COMPUTE XX = X - 12. 

DISPLAY HEAD (X) LINE XX POSITION 45. 

EXIT. 

xxx END OF FILE 


Sample COBOL Compiler Listing (Sheet 3 of 4) 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS  OPT=M PAGE 6 
ADDRESS SIZE DEBUG ORDER TYPE NAME 
>002A 2 ANS 0 ALPHANUMERIC ACTION 
>002C 2 NSU 0 NUMERIC UNSIGNED FUNC 
>002E 2 NBS 0 BINARY SIGNED x 
>0030 2 NBS 0 BINARY SIGNED XX 

>0032 520 GRP 0 GROUP HEADS 
>0032 520 GRP 0 GROUP HEADINGS 
>0032 20 ANS 1 ALPHANUMERIC HEAD 
READ ONLY BYTE SIZE = >01C8 

READ/WRITE BYTE SIZE = >0248 


OVERLAY SEGMENT BYTE SIZE = >0000 
TOTAL BYTE SIZE = >0410 
0 ERRORS 


0 WARNINGS 


Figure 4-1. Sample COBOL Compiler Listing (Sheet 4 of 4) 


4.2.2 Execute COBOL Compiler in Background (XCC) 
For the XCC commana, the following prompts appear with the indicated initial values: 


EXECUTE COBOL COMPILER <VERSION: 
SOURCE ACCESS NAME: 

OBJECT ACCESS NAME: 

LISTING ACCESS NAME: 

OPTIONS: 

PRINT WIDTH: 

PAGE SIZE: 

PROGRAM SIZE (LINES): 


L.R.V YYDDD> 
pathnamea 
pathnamea 
pathnamea 
C{D/1/M/0/X}] 
integer (80) 
integer (55) 
integer (1000) 


The parameters are the same as those for the XCCF command except that ME should not be used 


as the listing access name. 
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~ 4.3 COMPILER OUTPUT 


The compiler output consists of the object file and the listing file. The object file contains the 
object modules (interpretive code) generated by the computer. The reentrant code (instructions) is 
generated as a group named PSEG. The nonreentrant code (data) is generated as a group named 
DSEG. DSEGs are often referred to as $DATA. The object file may be executed by the run-time 
interpreter or linked to another object module. The listing file contains the listing of the program 
source code and lists any error messages detected by the compiler. 


4.4 COMPILER COMPLETION CODES 


The COBOL compiler returns a system completion code for the most severe diagnostic 
encountered in the compilation. The completion code is returned in the synonym $$CC. The values 
and meanings of these codes are as follows: 


Value Meaning 

0000 No warnings or errors occurred 
4000 Warnings occurred 

8000 Errors occurred 


The synonym $$CC should be checked in batch streams immediately after compiler execution. 
$$CC is used by other processors, and its integrity is not guaranteed after completion of the batch 
stream or execution of another command. 
4.55 COMPILER ERROR MESSAGES 
The compiler generates user and system error messages. User error messages are included in the 
compiler listing. Compilation of a program source module proceeds to the end of a program 
module regardless of the number of errors found. 
Errors that prevent proper execution of the COBOL compiler are system errors. When one of these 
errors occurs, the system displays an error message and terminates the execution of the compiler. 
Refer to Appendix B for alisting of user and system error messages and their meanings. 
4.66 COMPILER LIMITATIONS 
Each of the following items is limited to 2047 entries: 

° Level-88 condition names 


e Nesting of IF statements 


e Nesting of PERFORM statements 
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Using parameters in CALL statements 

Unique index names 

Unique spellings (identifiers, paragraph/section/internally generated labels) 
Unique literal values 

Unique identifiers (data names) 

Unique paragraph/section/internally generated labels 


Unique references to data items 


In practice, because of interactions between different statements and related temporary infor- 


mation du 
ever, the li 
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ring the compilation process, the actual limits may be somewhat less than 2047. How- 
mits for all practical purposes should be higher than typical program modules require. 
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5.1 GENERAL 
Link editing is the process of preparing object modules for execution. It can also combine two or 
more separately compiled object modules to form a single linked object module. This process is 
performed by one of the operating system utilities, the link editor. The process of link editing 
resolves external definitions and references between object modules. 
Object modules do not always require linking before execution. They must be linked as a linked 
object module if subroutines are present. (Refer to the section entitled Creating Linked Object 
Modules.) Also, object modules must be linked to a program file when task and procedure seg- 
ments or overlays are needed. (Refer to the section entitled Creating Program Images.) 
The following features are supported with linked object modules: 

e Callable subroutines 

e COBOL program module segmentation 

e Object file compression 
The following features are supported on program files: 

e Callable subroutines 

e Reentrant user modules 

e Shared procedure segments 


e Overlay phases 


e COBOL program module segmentation 
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The diagram in Figure 5-1 shows the link edit and execution options available with COBOL pro- 
grams. In the logical flow labeled A, no linking is necessary to execute an object module. (Refer to 
Object Modules Execution in Section 6 for a description of how to execute object modules.) The 
logical flow labeled B indicates that object modules must be linked when they contain CALL state- 
ments. The linked object modules are then executed using the same SCI commands as used for 
object modules. The logical flow labeled C shows how to execute a program (task) installed in a 
program file. (Refer to Program Image Execution in Section 6 for a description of how to execute 
program images on program files.) The Execute COBOL Program (XCP) and Execute COBOL Pro- 
gram in Foreground (XCPF) commands shown in Figure 5-1 reflect the method of executing com- 
piled object files and linked object files. The Execute COBOL Task (XCT) and Execute COBOL Task 
in Foreground (XCTF) commands show the method of executing linked program images on pro- 
gram files. 


User programs that operate under control of the operating system can include a combination of 
data, procedures, and overlays as required. Programs are installed and stored on program files in 
memory image form. When a program is activated, the images of its program segments are loaded 
into available memory areas. The hardware mapping facility precludes the necessity of relocating 
program images. Thus, the operating system can swap an active program to various locations in 
memory several times during execution. This process assists in sharing memory and making CPU 
execution time available (time-slicing). The hardware mapping capability also allows three sepa- 
rately loaded program segments to be mapped into a single, logically contiguous program address 
space. 


5.2 OBJECT MODULES 


The following paragraphs discuss object modules constructed using PSEGS and DSEGS. An 
object module can contain a PSEG only, a DSEG only, or both a PSEG and a DSEG. 


An object module using the PSEG/DSEG structure should contain only the following in the PSEG 
portion: 


e Unmodifiable instructions. 
e Constant data. 
If the object module contains a DSEG, the DSEG can contain modifiable data. 


The Link Editor always positions the PSEG portion of an object module in the segment in which it 
is included. It always positions the DSEG portion in the task segment. 


5.2.1. Differences in the Treatment of Sharable Vs. Reentrant Modules 

In a sharable object module, data outside the PSEG can be directly addressed if the ALLOCATE 
command of the Link Editor is properly used during link edit. In areentrant object module, all refer- 
encing of data outside the PSEG must be by means of indirect addressing. 


5.2.2 COBOL Object Modules 

An object module generated by the COBOL compiler is constructed using the PSEG/ DSEG struc- 
ture. PSEGs directly address data in DSEGs; therefore, the ALLOCATE command of the Link Editor 
must be used in order to share COBOL object modules. COBOL object modules that use segmen- 
tation cannot be shared. 
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Figure 5-1. Determining Link Edit Requirements for COBOL Programs 
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5.3 PROGRAM MAPPING 


The hardware has a 20-bit memory address bus and can address 2048 bytes of memory. The logical 
address space available to a task (program) is limited to 64K bytes. This difference is resolved by 
mapping the task’s logical address space into the computer’s physical address space. The seg- 
ments in physical address space need not be contiguous. Since the operating system maintains 
separate mapping parameters for each task, each task may consist of one, two, or three segments 
with a total extent of 64K bytes. Furthermore, several tasks may share one or two procedure seg- 
ments. However, one segment is unique to each instance of a program. This unique segment is 
called the task segment (T). The sharable segments of a task are called procedure segments (P1) 
and (P2). Refer to Figure 5-2. 
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Figure 5-2. Memory Mapping 
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5.4 PROGRAM FILES 


All task and procedure segments and overlays are installed in structures referred to as program 
files. These files are similar to the expandable relative record files and contain program images in 
blocks corresponding to file records. An internal directory is maintained within the file itself. This 
internal directory contains pointers to each image on the file as well as relevant information about 
the images. Figure 5-3 shows a listing of a program file produced by the Map Program File (MPF) 
command. 


FILE MAP OF VOLUME.PROG 
TODAY IS 15:58:24 WEDNESDAY, JUN 04, 1980. 


TASK SEGMENTS: MAXIMUM POSSIBLE = 255 
ID NAME LENGTH LOAD PRI S PMRODEOC OVLY P1/SAME P2/SAME INSTALLED 
01 TSKSEG1 136A 0000 3 R 04 3/26/80 
02 TSKSEG2 7082 0000 3 R 5/ 7/80 
03 TSKSEG3 12E2 4440 4 R 01/7Y 5/17/80 
04 TSKSEGS AFA&4 4060 4 R 06 02/Y 6/10/80 
PROCEDURE: MAXIMUM POSSIBLE = 255 
ID NAME LENGTH LOAD MDEWC INSTALLED 
01 PRCSEG1 4438 0000 5/17/80 
02 PRCSEG2 4050 0000 6/10/80 
OVERLAYS: MAXIMUM POSSIBLE = 255 
ID NAME LENGTH LOAD MAP D_ OVLY INSTALLED 
01 OVLY1 0586 0006 5/ 7/80 
02 OVLY2 13F4 0006 01 5/ 7/80 
03 OVLY3 1394 0006 02 5/ 7/80 
04 OVLY4 1148 0006 03 5/ 7/80 
05 OVLYS5 119E AEQ9A 6/10/80 


06 OVLY6 2E7C AE9YA 05 6/10/80 


Figure 5-3. Contents of a Program File 


In Figure 5-3, task 1 consists of task segment 1. Task 2 consists of task segment 2 and overlays 1 
through 4. Task 3 consists of task segment 3 and procedure segment 1. Task 4 consists of task 
segment 4, procedure segment 2, and overlays 5 and 6. Various examples of how to create linked 
program images with one, two, or three segments are provided in the Section 5 paragraph entitled 
Creating Linked Object Modules. 


5.4.1 Segments 

Because the operating system maintains separate mapping parameters for each task, each task 
can consist of one, two, or three segments with a total extent of 64K bytes. Furthermore, several 
tasks may share one or two segments. One segment, however, is unique to each instance of a pro- 
gram. This unique segment is called the task segment. The sharable segments of a task are called 
procedure segments. 
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5.4.1.1. Task Segments. Task segments contain the initial portion of the program such as entry 
vectors, optional data, and optional program code. The task segment is unique to each separate 
execution and cannot be shared. A task segment may be uniquely replicated from a single image 
installed in a program file on disk for each activation. Replication of tasks, therefore, conserves 
disk space and time by eliminating the need to install a copy of the same task with different IDs for 
each possible concurrent activation of a program. 


5.4.1.2 Procedure Segments. A COBOL task can be linked with two or fewer procedure seg- 
ments. Code linked in the procedure segments can be shared by more than one task. A procedure 
is considered sharable if more than one task can share one copy of the module during execution 
without loss of data. Reentrant (or pure) procedures must contain only unmodifiable code and 
constant data. Data modified by the reentrant module is usually stored in the task segment and 
can be located at different addresses in the tasks without loss of data. The COBOL run-time inter- 
preter module is reentrant. All reentrant procedures are sharable. 

The procedure portion (PSEG) of the object generated by the COBOL compiler is not reentrant. It 
can be made sharable through the use of the ALLOCATE command in the link control file. (Refer to 
paragraph 5.6.5 entitled Linking Two Procedure Segments With Multiple Task Segments for an 
explanation of how to use the ALLOCATE command.) Procedure segments are linked by use of the 
PROCEDURE command as referenced in the Link Editor Reference Manual. Sharing procedure 
segments conserves memory by precluding the replication of a task’s procedure segment. 


Procedure segments installed on the system program file can be shared by tasks in any user pro- 
gram file. Procedure segments installed on a user program file can be shared only by tasks on that 
program file. 


_ The COBOL run-time interpreter (RCOBOL) is stored in the system program file. To conserve both 
memory and disk space, it is recommended that COBOL tasks share this procedure. 


If task 1 and task 2 reside on the same program file and each share the same procedure(s) (either 
on the same program file as the task or on the system program file), only one copy of any shared 
procedure segment is in memory during execution of the tasks. 


Conversely, if task 1 and task 2 are on separate program files and each has acopy of the same pro- 
cedure(s), then two copies of the procedure(s) occur in memory during simultaneous execution of 
the tasks. 


Figure 5-4 shows a construct with multiple task and procedure segments on the same program 
file. Each task segment is attached to the procedure segment. Therefore, sharing P1 and P2 
reduces the amount of memory required to run the application. The task segments may be identi- 
cal (that is, duplicated and/or executed from two different terminals) or they may be unique task 
segments. Tasks on separate program files that share the same procedure(s) on the system pro- 
gram file require only one copy of the procedure(s) in memory during concurrent execution of the 
tasks. 
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Figure 5-4. Multiple Tasks Sharing Same P1 and P2 


Figure 5-5 shows another construct with multiple task and procedure segments on the same pro- 
gram file. Task segments 1 and 2 share the first P2 with P1 while task segments 3 and 4 share the 
second P2 with P1. 


Figure 5-6 shows aconstruct with task and procedure segments on separate nonsystem program 
files. 


Figure 5-7 illustrates the importance of sharing procedure segments. The total memory required to 
execute the group of tasks shown in Figure 5-7 is 215K bytes (1K = 1024 bytes) if procedure seg- 
ments are not shared. If procedure segments are shared, only 130K bytes are required. Nearly half 
of the memory required to execute this group of tasks has been eliminated. In many cases, such a 
reduction can mean reduced swapping and, consequently, faster execution time. 
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Figure 5-5. Multiple Tasks Sharing Same P1 but Different P2s 
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Figure 5-6. Multiple Tasks on Separate Program Files 
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Figure 5-7. Comparison of Memory Requirements 


5.4.2 Overlays 

Overlays are parts of a task that reside on disk until explicitly requested by the task. When 
requested, an overlay is loaded into an area of the task reserved for overlays and replaces any 
other overlay which may have been present at the time of the request. The use of overlays can 
reduce the amount of memory required by a task segment. 


An overlay phase is the smallest functional unit that can be loaded as a logical entity during exe- 
cution. A phase consists of one or more object modules. The structure of an overlaid program 
depends on the relationships between the phases in the program. Phases that need not be in 
memory at the same time can overlay each other. These phases are independent in that they do not 
reference each other, either directly or indirectly. Independent phases can be assigned the same 
load address and are loaded into memory only when referenced. The Link Editor Reference Manual 
contains a detailed description of overlays and overlay phases. 


5.4.3 COBOL Module Segmentation 

COBOL module segmentation is a type of overlay. COBOL segmentation provides a means of 
communicating with the compiler when specifying requirements of the object program module 
overlay. A task (program) may be structured to include COBOL segment overlays and also may 
include overlay phases. 


Any COBOL module in the task segment, including modules within overlay phases, can contain 
segments. COBOL module segments are automatically generated in the object module when 
specified in the source module. All segments are assigned the name COBOVY. Figure 5-8 shows a 
map program file listing containing overlay phases with embedded COBOL segments. When creat- 
ing program images on program files, segments are contained in the program file as overlay 
entries. Refer to Figure 5-8. The module T.SEGMENT is asegmented COBOL module in an overlay 
phase. T.NONSEG is a nonsegmented COBOL module in an overlay phase. Both overlay phases 
and the COBOL segments are listed as overlay entries in the map program file listing. 
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COBOL segmentation deals only with the segmentation of the Procedure Division (PSEGs) of a 
COBOL program module. Two types of PSEGs are fixed and independent. The fixed portion is the 
part of the object program that is logically treated as if it were always in memory. An independent 
segment is the part of the object program that can overlay or be overlaid by another independent 
segment. The Tl COBOL Reference Manual contains a detailed description of COBOL 


segmentation. 
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Figure 5-8. COBOL Segmentation Within Overlay Phase Modules 
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5.5 CREATING LINKED OBJECT MODULES 


Table 5-1 contains alist of valid link editor commands for COBOL linking object modules. 


Table 5-1. Valid Link Editor Commands With COBOL Object 


Command Execute Execute 
(Default Underscored) Partial Link (From Object File) (From Program File) 

ADJUST Y Y Y 
ALLOCATE NO NO Y 
AUTO ‘ 4 Y 
COMMON NO NO NO 
DATA NO NO NO 
DUMMY Y NO Y 
END Y Y Y 
ERROR/NO ERROR Y Y Y 
FORMAT ASCII Y Y NO 
FORMAT COMPRESSED Y Y NO 
FORMAT IMAGE NO NO Y 
FORMAT IMAGE, REPLACE NO NO ¥ 
GLOBAL/ALL GLOBAL/ 

NOT GLOBAL Y NO NO 
INCLUDE Y : : 
LIBRARY Y Y Y 
LOAD/NO LOAD NO NO Y 
MAP/NO MAP i Y Y 
NOAUTO Y Y Y 
NOSYMT Y Y Y 
PAGE/NO PAGE ¥ Y Y 
PARTIAL rv NO NO 
PHASE 0 Y Y Y 
PHASE 1,2,...n NO NO Y 
PROCEDURE NO NO Y 
PROGRAM NO NO NO 
SEARCH Y Y Y 
SHARE NO NO NO 
SYMT Y Y NO 
TASK Y Y Y 
Notes: 


' Fora PARTIAL link, the default is NO AUTO and these commands should be omitted. 
* Main program must be included first. 


3 COBOL run-time procedure, task, and main program designator modules must be included as part of the 
link. 
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Overlay phases are not allowed with linked object modules. 

A linked object module must be produced in one of the following distinct formats: 
e Tagged 
e Compressed 


Tagged object modules consist of ASCII characters with ASCII tags. Compressed object modules 
also have tags, but the numeric characters are changed to binary representations. 


Compared to the normal tagged object, the compressed object saves approximately 47 percent of 
disk space. 


The following example of alink control file shows how to generate a tagged object module: 


TASK CBLTSK1 
INCLUDE EX.MAINPRG1 
INCLUDE EX.SUBPRGM 
END 


The following example of a link control file shows how to generate a compressed object module: 


FORMAT COMPRESSED 
TASK CBLTSK1 
INCLUDE EX.MAINPRG1 
INCLUDE EX.SUBPRGM 
END 


Note that the only difference between the two sets of link control commands is the FORMAT 
command. The default format of the linked output is tagged (ASCII). The FORMAT command is not 
required for tagged format. In both cases, the link editor resolves external addresses or refer- 
ences. Object modules or linked object modules are executed by using the XCP or XCPF com- 
mands. Section 6 contains information for executing an object module or a linked object module. 


5.6 CREATING PROGRAM IMAGES 


For object modules produced by the link editor and installed on program files, the link editor must 
link the program modules to the run-time interpreter module. Object modules are installed and 
stored on program files in memory image form. The link editor may install the memory image 
object directly on a program file. When the necessary program file does not exist, it is automati- 
cally created. The link editor creates a program file with only enough room for the task and proce- 
dure segments and overlays defined for the program. If a program file is created by the Create 
Program File (CFPRO) command, the operating system allows a maximum of 255 task segments, 
255 procedure segments, and 255 overlays. 


Program images are executed by using the XCT or XCTF commands. Section 6 contains infor- 
mation for executing object modules produced by the link editor and installed on program files. 
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5.6.1 COBOL Run Time 
COBOL run time consists of the following prelinked object modules: 


e SS$SYSLIB.RCBTSK — This module contains the task entry vector plus the data area 
portion of COBOL run time needed by the reentrant module RCBPRC. It must be 
included as the first module in the task segment of the task. It is not reentrant. 


e S$SYSLIB.RCBTSKD — This module includes everything contained in 
SS$SYSLIB.RCBTSK and the COBOL debugger module needed when performing inter- 
active debugging of COBOL modules. 


e S$SYSLIB.RCBPRC — This is the reentrant module that contains the COBOL run-time 
interpreter and can be included in a procedure segment of a task when desired. 


e S$SYSLIB.RCBNOIO — This module is similar to S$SYSLIB.RCBPRC with the excep- 
tion that any modules comprising the run-time interpreter relating to I/O operations are 
omitted. 


e .S$SYSLIB.RCBMPD — This module must be stored during Link Edit immediately pre- 
ceding the COBOL object module intended to receive control at execution time. It then 
designates to the run time where the object module begins. Since it is reentrant, it can 
be used in either task or procedure segments. 


The run-time entry module (.S$SYSLIB.RCBTSK), one of the two reentrant modules 
(.S$SYSLIB.RCBPRC or .S$SYSLIB.RCBNOIO), and the main program designator module 
(.S$SYSLIB.RCBMPD) can be specifically included in the appropriate places in the link control file. 
The reentrant module .S$SYSLIB.RCBNOIO cannot be linked with the run-time entry module 
S$SYSLIB.RCBTSKD. The reentrant module .S$SYSLIB.RCBPRC (or .S$SYSLIB.RCBNOIO) can be 
included anywhere in the link control file except as the first module in the task segment (phase 
zero). If S$SYSLIB.RCBPRC is used, it is suggested that it be made P1, so that the shared proce- 
dure segment on the system program file can be used. If .S$SYSLIB.RCBPRC is anywhere other 
than P1, a separate copy is generated in the user program file and in memory when the program is 
executed. When the first program module to receive control is aCOBOL program module, the run- 
time entry module (.S$SYSLIB.RCBTSK or .S$SYSLIB.RCBTSKD) must be the first module 
included in the task (phase zero) since it contains the task entry vector. The main program designa- 
tor (.S$SYSLIB.RCBMPD) module must be included just prior to the COBOL program module that 
receives control. The following paragraphs demonstrate various techniques for linking these 
modules with user modules to build tasks. 


9.6.2 Linking a Single Procedure Segment With a Single Task Segment 

The COBOL reentrant run-time interpreter module is installed by the COBOL installation on the 
system program file as the reentrant procedure segment RCOBOL. This procedure segment is 
identical to SS$SYSLIB.RCBPRC and can be shared by all user tasks that have been linked and 
installed on user-defined program files. Using this procedure segment eliminates the need for a 
copy of .S$SYSLIB.RCBPRC on each user-defined program file, thus saving disk storage. If you 
have two user-defined program files and .S$SYSLIB.RCBPRC is installed on each, executing one 
task from each program file loads two copies of .S$SYSLIB.RCBPRC into memory. If the procedure 
segment on the system program file is used, only one copy of the reentrant procedure segment is 
in memory during the execution of the tasks, thus saving memory space and minimizing swapping. 


5-14 2270521-9701 


Link Edit 


Figure 5-9 shows asimple link edit using the system program file procedure segment RCOBOL. 


The presence of the DUMMY command in the link control file prevents the procedure segment 
from being replaced in the program file. 


This procedure segment (RCOBOL) on the system program file must be used only in the link proce- 
dure segment one (P11). 


The procedure segment two (P2) and the task segments (T) may be structured using any of the 
techniques mentioned in paragraphs 5.6.3 through 5.6.5. All examples use the shared procedure 
segment RCOBOL. The origin addresses and lengths in the following figures do not necessarily 
reflect the actual origin and lengths of the Ti COBOL run time. 


To use RCOBOL on the system program file, the DUMMY command must always be specified, 
even on the first link edit to anew program file. The procedure segment RCOBOL must not already 
exist on the user program file. The reentrant procedure segment on the system program file is 
identical to .SS$SYSLIB.RCBPRC. 


5.6.3 Linking a Single Procedure Segment With Multiple Task Segments 

A single procedure segment may be shared by multiple tasks. The task segments must be linked 
and installed on the same program file. They will then be attached to this shared procedure seg- 
ment. Figure 5-10 presents the structure shown in Figure 5-9 with an additional task segment 
attached to the procedure segment. A link control file is shown on the right side of Figure 5-9. 
When sharing a single procedure segment, all link control files must be identical within the proce- 
dure segment. If any change is required in the procedure segment, all tasks on the program file 
must be linked again. | 


5.6.4 Linking Two Procedure Segments With a Single Task Segment 

A task segment may be attached to multiple procedure segments. Figure 5-11 shows the structure 
of Figure 5-9 with an additional procedure segment added. Note that the DSEG or $DATA (nonreen- 
trant object module code in the form of data) from the procedure segment is relocated to the task 
segment immediately following the task PSEG allocations. All data referenced in procedure seg- 
ments P1 and P2 must be referenced using indirect or indexed addressing. No direct references 
can be made to the DSEG. Although the COBOL compiler segregates executable code from data 
items and the link editor relocates DSEGs by moving them to the task segment, the PSEGs (reen- 
trant object module code in the form of instructions) still reference data items with direct relocata- 
ble addresses. Reentrant execution is permitted by locating the DSEG at the same absolute 
location in each task segment. Assembly language object modules can also be made reentrant 
through the use of PSEG and DSEG assembler directives. 


2270521-9701 5-15 


Link Edit 


COMMAND LIST 


FORMAT IMAGE, REPLACE 
PROC RCOBOL 

DUMMY 

INCLUDE .S$SYSLIB.RCBPRC 


TASK CBLT SKI 

INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE EX. MAINPRGI1 
INCLUDE EX.SUBPRGM 

END 





PROCEDURE 1, RCOBOL ORIGIN = 0000 


MODULE NO _ ORIGIN! 


CRTIM | 0000 


LENGTH 2 


3DF4 ——» 


PHASE 0, CBLTSKI ORIGIN = 3E00 


MODULE NO ORIGIN! LENGTH~ 
CXCBL 2 3E00 OCD4 
$DATA 2 4032 O4EC 
C$MAIN 3 4AD4 0010 
MAINPRGI 4 4AE4 OOAC 
$DATA 4 S11E O10E 

SU BPRG s) 4B90 0OOA2 
$DATA S, 322C OOEA 
NOTES; 


1. ORIGIN ADDRESSES MAY DIFFER 


2. LENGTHS MAY DIFFER 


2277270 


\ 





LINK CONTROL FILE 


RCBPRC (PSEG) 


RCBTSK (PSEG) 


RCBMPD (PSEG) 


RCBTSK (DSEG) 


SUBPRGM (DSEG) 


Figure 5-9. Linking a Single Procedure Segment With a Single Task Segment 
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COMMAND LIST 


FORMAT IMAGE, REPLACE 


PROC RCOBOL. 

DU MMY 

INCLUDE .S$SYSLIB.RCBPRC 
TASK CBLTSKI!1 

INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE EX. MAINPRGI!1 
INCLUDE EX. SUBPRGM 

END 


LINK CONTROL FILES 













RCBPRC (PSEG) 
PROCEDURE 1, RCOBOL 


MODULE NO 


PHASE O, CBLTSK! MAINPRG1 (PSEG) \ 
| —_eoeom one ae ee eee 

MODU LE NO ORIGIN 

CXCBL 3E00 

$DATA 4C32 Sete aria ge AS ee 

C$MAIN 4AD4 RCBTSK (DSEG) eee ee ee 

MAINPRG1 4AE4 Bek oo eee as ete ee, 

$DATA SI1E M 

SU BPRG 4B90 AINPRG!1 (DSEG) ee 


S$DATA 


ORIGIN RCBTSK (PSEG) 
CRTIM 1 0000 


RCBTSK (PSEG) 








viuw bh BhWDN DN 


/ 


39220 


NOTE. 


SUBPRGM (DSEG) 
1. ORIGIN ADDRESSES MAY DIFFER 
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COMMAND LIST 


FORMAT IMAGE, REPLACE 
PROC RCOBOL 

DU MMY 

INCLUDE .S$SYSLIB.RCBPRC 


TASK CBLTSK2 

INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE EX. MAINPRG2 


INCLUDE EX.SUBPRGM 
END 





PROCEDURE 1, RCOBOL. 


MODULE NO ORIGIN 


CRTIM 1 0000 


PHASE 0, CBLTSK2 


1 


MODU LE NO, ORIGIN 
CXCBL 2 3E00 
$DATA 2 4C50 
CS$MAIN 3 4ADA 
MAINPRG2 4 4AE4 
$DATA 4 913C 
SUBPRG be) 4BAE 
S$DATA 5 5292 


Figure 5-10. Linking a Single Procedure Segment With Multiple Task Segments 
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COMMAND LIST 


FORMAT IMAGE, REPLACE 


PROC RCOBOL 
DUMMY 


INCLUDE .S$SYSLIB.RCBPRC 


PROC SHRSUB 


INCLUDE EX.SUBPRGM 
TASK CBLTSKI!1 
INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE EX. MAINPRGI 
END 





LINK CONTROL FILE 


PROCEDURE 1, RCOBOL ORIGIN = 0000 


MODULE NO ORIGIN 


CRTIM 1 0000 


PROCEDURE 2, SHRSUB- ORIGIN = 3E00 


LENGTH 





3DE4 


ny 


RCBPRC (PSEG) Pt 


MODULE NO ORIGIN! LENGTH“ cciiieige Shatic ie 
SUBPRG 2 3E00 00A2. ——”” 
$DATA 2 AC50 OOEA 
RCBTSK (PSEG) 
PHASE 0, CBLTSKI ORIGIN SEEMED eaee 
MODULE NO ORIGIN! LENGTH ee, po 
MAINPRG1 (PSEG) Ty 
CXCBL 3 3ECO OCD4 ee 
$DATA 3 AD3A O4EC 
C$MAIN 4 4B94 0010 
MAINPRGI 5 ABAA OOAC eer eet ean eres 
$DATA 5 5226 010E 


NOTES; 


2. LENGTHS MAY DIFFER 


2277272 


1. ORIGIN ADDRESSES MAY DIFFER ae 


MAINPRG1 (DSEG) 





Figure 5-11. Linking Two Procedure Segments With a Single Task Segment 
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5.6.5 Linking Two Procedure Segments With Multiple Task Segments 

Multiple task segments may be attached to multiple procedure segments. Figure 5-12 shows the 
structure of Figure 5-11 with an additional task segment attached to the procedure segments. 
Note the allocation addresses shown in Figure 5-12. The origin address for the $DATA (DSEG) 
associated with SUBPRGM is 4C50 for task T1 and 4C6E for task T2. Since the program SUBPRGM 
always expects its data to be in the same location, execution of CBLTSK2 will not execute 
correctly. 


This situation is handled by using the ALLOCATE command. The ALLOCATE command allows you 
to share COBOL program object modules as procedure segments. The ALLOCATE command is 
always used in the task segment of the link control file. Place the ALLOCATE command after a 
TASK or PHASE 0 command and before a PHASE 1 or LOAD command, if any are used. The 
ALLOCATE command should be issued immediately following the INCLUDE.S$SYSLIB.RCBTSK 
statement and must be placed in the same location in the link control file for all task segments that 
are sharing COBOL program object modules in P2. The ALLOCATE command causes all DSEGs 
associated with previously allocated executable PSEGs to be allocated immediately. Space is 
immediately allocated to all DSEGs associated with PSEGs in either P1 or P2 when the ALLOCATE 
command occurs in the link control file. Figure 5-13 shows the effects of using the ALLOCATE 
command when linking two procedure segments with multiple task segments. Note that the origin 
address for the DSEG for SUBPRGM its 4B94 for both tasks. 


If either the link control file statements or a procedure segment in this structure change before the 
ALLOCATE command is issued, all task segments on the affected program file must be relinked. 
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COMMAND LIST COMMAND LIST 


FORMAT IMAGE, REPLACE 
PROC RCOBOL 


FORMAT IMAGE, REPLACE 
PROC RCOBOL 

DUMMY DUMMY 

INCLUDE .S$SYSLIB.RCBPRC INCLUDE .S$SYSLIB.RCBPRC 
PROC SHRSUB LINK CONTROL FILES PROC SHRSUB 


INCLUDE EX. SUBPRGM 

TASK CBLTSK!1 

INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE EX. MAINPRG!1 

END 


PROCEDURE 1, RCOBOL, 
MODULE NO_ ORIGIN 
CRTIM i 0000 


DUMMY 
INCLUDE EX.SUBPRGM 
TASK CBLTSK2 
INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE EX. MAINPRG2 

Pi END 





RCBPRC (PSEG) 







PROCEDURE !,RCOBOL 






SUBPRGM (PSEG) MODULE NO ORIGIN 







CRTIM 1 0000 


RCBTSK (PSEG) 






PROCEDURE 2, SHRSUB PROCEDURE 2, SHRSUB 





MODULE NO ORIGIN! 






1 
MODU LE NO ORIGIN RCBMPD (PSEG) 





SU BPRG 2 3E00 SS SS a A ea SUBPRG 2 3E00 
$DATA 2 4C50 MAINPRG!1 (PSEG) $ DATA 2 4C6E 





PHASE O, CBLTSK! PHASE 0, CBLTSK2 


1 
MODU LE NO ORIGIN — . MODULE NO ORIGIN ; 





CXCBL 3 3ECO MAINPRG! (DSEG) Pu ——~ ~~~ — — CXCBL 3 3ECO 
$DATA 3 4AD3A SDATA 3 4D58 
C$MAIN 4 4B94 CSMAIN 4 A4B94 
MAINPRG!I 5 4BAA MAINPRG2 5 4BA4 
$DATA 5 5226 < SDATA 5 5244 
NOTE: 


1, ORIGIN ADDRESSES MAY DIFFER 
2277273 


Figure 5-12. Linking Two Procedure Segments With Multiple Task Segments 
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COMMAND LIST COMMAND LIST 


FORMAT IMAGE, REPLACE 
PROC RCOBOL 
DU MMY 


INCLUDE .S$SYSLIB.RCBPRC 
PROC SHRSUB LINK CONTROL FILES 


FORMAT IMAGE, REPLACE 
PROC RCOBOL 


INCLUDE .S$S$SYSLIB.RCBPRC 
PROC SHRSUB 


INCLUDE EX.SUBPRGM 

TASK CBLTSKI!I 

INCLUDE .S$SYSLIB.RCBTSK 
ALLOCATE <<. 

INCLUDE .SSSYSLIB.RCBMPD 
INCLUDE EX. MAINPRG! 

END 


INCLUDE EX,SUBPRGM 
TASK CBLTSK2 
INCLUDE .S$S$SYSLIB.RCBTSK 
ALLOCATE <«—— 
INCLUDE .S$SSYSLIB,RCBMPD 
INCLUDE EX.MAINPRG2 

PI END 


PROCEDURE 1, RCOEOL 
MODU LE NO ORIGIN 
CRTIM 1 


0000 










RCBPRC (PSEG) 


PROCEDURE 1, RCOBOL nn 
MODULE NO __ ORIGIN 

CRTIM 1 0000 

PROCEDURE 2, SHRSUB 

MODULE NO one! 
SUBPRG 2 3E00 — 


$DATA 2 4B94 


PROCEDURE 2, SHRSUB 
1 
MODU LE NO ORIGIN 


SUBPRG 2 3E00 
$DATA 2 4B94 


PHASE 0, CBLTSK! PHASE O, CBLTSK2 


1 
MODU LE NO ORIGIN! MODULE NO ORIGIN 


CXCBL 3 3ECO 
$DATA 3 AC7TE we we he ——F 


CXCBL 3 3ECO 
$DATA 3 4C7E 


PHASE O, CBLTSK! PHASE 0, CBLTSK2 

(POST ALLOCATE) SS SS (POST ALLOCATE) 
MODULE NO ORIGIN! MAINPRG1 (PSEG) MODU LE NO ORIGIN | 
C$MAIN 4 sen Se Se ee 


C$MAIN 4 S16A 
MAINPRG!I 5 oe eee MAINPRG1 (DSEG) MAINPRG2 5 517A 
$DATA 5 5226 
NOTE: 


S$DATA 5 5244 
1. ORIGIN ADDRESSES MAY DIFFER T2 


2277274 


Figure 5-13. Linking Two Procedure Segments With Multiple Task Segments (ALLOCATE) 
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Object modules that have been separated into PSEGs and DSEGs can be shared successfully if 
the following conditions are met: 


e All modifiable data is contained in the DSEGs. Object modules generated by the COBOL 
compiler are produced with all modifiable datain the DSEGs. 


e If the first procedure segment uses this PSEG/DSEG structure, the second procedure (if 
used) must be the same length for all tasks that share the first procedure. 


e Tasks that share asecond procedure must also share the same first procedure. 


When using the ALLOCATE command, you can construct a task whose first procedure segment is 
the reentrant module of the COBOL run-time interpreter (S$SYSLIB.RCBPRC), and whose second 
procedure segment is a set of COBOL and/or assembly language program modules. The DSEGs 
for the routines can be loaded immediately after the run-time interpreter entry module 
(.S$SYSLIB.RCBTSK) by using the ALLOCATE command. Even though the task segments asso- 
ciated with the two different programs are different, the DSEGs are located in identical locations, 
allowing direct references in the second procedure segment to be completed successfully. 


5.6.6 Overlay Structures 

When two or more subroutines are not required to reside in memory simultaneously, an overlay 
structure can be used to reduce the task’s memory requirements. Programs that do not use over- 
lays are loaded into memory and remain in memory until execution completes. Programs that use 
overlays conserve memory space since each overlay resides in memory only when it is called. The 
total memory space required by the program is that which is required to hold the root portion of the 
task segment and the longest overlay path. Overlays are defined by the use of the link control file. 
Figure 5-14 shows a link control file and tree structure depicting two phase one and two phase two 
overlays. The location of phase one is after phase zero. The CBLOV10 phase one overlay contains 
two phase two overlays. The LOAD command allocates the overlay loader module in the appro- 
priate location. (The command LIBRARY .S$SYSLIB must be included in the link control file when 
using the LOAD command.) 
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COMMAND LIST 
FORMAT IMAGE , REPLACE 
LIBRARY, S$SYSLIB 
LIBRARY EX 
PROCEDURE CBLPROC! 
INCLUDE (RCBPRC) 
INCLUDE (RCBMPD) 
INCLUDE (CBLMPG) 
INCLUDE (CBLSUB1) 
INCLUDE EX. ASMPG1 
PROCEDURE CBLPROC2 
INCLUDE (CBLSUB2) 
INCLUDE EX.ASMPG2 
PHASE 0,CBLTASK 
INCLUDE (RCBTSK) 
ALLOCATE 
INCLUDE EX. ASMPG3 
INCLUDE (CBSUB3) 
LOAD 
PHASE 1,CBLOV10 
INCLUDE (CBSUB4) 
INCLUDE EX. ASMPG4 
PHASE 2,CBLOV1!1 
INCLUDE (CBSUBS5) 
PHASE 2,CBLOV12 
INCLUDE EX. ASMPG5 
INCLUDE (CBSUB6) borcaeei® * 
PHASE 1,CBLOV20 
INCLUDE (CBSUB7) 
INCLUDE (CBSUB8) 
INCLUDE (CBSUBQ) OL onOea” 2 


LINK CONTROL FILE 





PHASE O 
CBLTASK 
PHASE 1 PHASE 1 
CBLOVI1O CBLOV20 
PHASE 2 PHASE 2 
CBLOV11 CBLOV12 


2279009 


Figure 5-14. An Overlay Structure With the Accompanying Link Control File 
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The DSEGs for both the CBLPROC1 (P1) and CBLPROC2 (P2) procedure segments float to the end 
of phase zero (CBLTASK) following the PSEGs of the routines in phase zero. The PSEGs remain in 
their respective procedure segments. The DSEGs of all phases float to the end of their respective 
phase immediately following all the PSEGs of the modules in the phases. 


It must be noted that if file 1/O is performed in an overlay module, the files must be opened on each 
entry and closed before exiting to release any assigned LUNO. The overlay phase is loaded in its 
initial state on each entry. However, if consecutive calls are made to the same overlay phase 
module, the module already resides in memory and is not reinitialized. 


5.6.7 Sharing Main Program Module 

The main program designator module (.S$SYSLIB.RCBMPD) may be shared with multiple users or 
terminals. Figure 5-15 shows inclusion of the main program designator module and the user’s 
main COBOL program object module in the P2. The task may be executed from multiple terminals 
simultaneously, with each task’s memory requirements significantly reduced because the main 
program module is shared among all tasks. | 


5.6.8 Linking a Single Procedure One Segment and Multiple Procedure Two Segments 

Figure 5-16 shows an example of a P1 with different P2s. Applicable to the discussions for this 
example, which has multiple procedure segments, are the Section 5 paragraphs Linking Two Pro- 
cedure Segments With a Single Task Segment and Linking Two Procedure Segments With Multi- 
ple Task Segments. 


COMMAND LIST 


PI 


9:24 


2277276 


FORMAT IMAGE, REPLACE 
PROC RCOBOL 
DUMMY 


RCBPRC 


RCBMPD 







INCLUDE .S$SYSLIB.RCBPRC LINK MAINPRGI P2 
PROC PTWO CONTROL SU BPRGM 
INCLUDE .S$SYSLIB.RCBMPD FILE 


INCLUDE EX. MAINPRGI! 
INCLUDE EX, SUBPRGM 

TASK CBLTSK! 

INCLUDE .SS$SYSLIB.RCBTSK 
END 





TASK 





RCBTSK 


Figure 5-15. Sharing the Main Program Module With P2 
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LINK 1 
COMMAND LIST 


FORMAT IMAGE, REPLACE 
PROC RCOBOL 

DUMMY 

INCLUDE .S$SYSLIB.RCBPRC 
PROC PTWO! 

INCLUDE EX. SUBPRGMI 


TASK CBLTSK!1 

INCLUDE .S$SYSLIB.RCBTSK 
ALLOCATE 

INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE EX.MAINPRGI 





END 
LINK 
LINK 3 CONTROL 
FILES 


COMMAND LIST 


FORMAT IMAGE, REPLACE 
PROC RCOBOL 

DUMMY 

INCLUDE .S$SYSLIB.RCBPRC 
PROC PTWO2 

INCLUDE EX. SUBPRGM2 
TASK CBLTSK3 

INCLUDE .S$SYSLIB.RCBTSK 
ALLOCATE 

INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE EX. MAINPRG3 

END 
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Link Edit 


LINK 2 
COMMAND LIST 


FORMAT IMAGE , REPLACE 
PROC RCOBOL 

DUMMY 

INCLUDE .SS$SSYSLIB.RCBPRC 
PROC PTWO!I 

DUMMY 


INCLUDE EX, SUBPRGMI 

TASK CBLTSK2 

INCLUDE .SSSYSLIB.RCBTSK 
ALLOCATE 

INCLUDE .SSSYSLIB.RCBMPD 
INCLUDE EX. MAINPRG2 

END 


LINK 4 
COMMAND LIST 


FORMAT IMAGE , REPLACE 
PROC RCOBOL 

DUMMY 

INCLUDE .SSSYSLIB.RCBPRC 
PROC PTWO2 

DUMMY 

INCLUDE EX. SUBPRGM2 
TASK CBLTSK4 

INCLUDE .SSSYSLIB.RCBTSK 
ALLOCATE 

INCLUDE .SS$SYSLIB.RCBMPD 
INCLUDE EX. MAINPRG4 

END 





Figure 5-16. Linking a P1 With Different P2s 
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5.6.9 Linking a Single Procedure Segment With a Single Task 

Figure 5-17 shows an example of a single procedure segment linked to a single task segment. 
Both the procedure segment and the task segment are contained in the user’s program file. To 
include both segments in the user’s program file, you can either: 


e Specify procedure RCOBOL and omit the DUMMY command in the link control file, or 
e Specify a procedure name other than RCOBOL in the link control file. 


5.6.10 Installing Program Images From a Relative File 

To install the task and procedure segments in a program file, the Install Procedure (IP), Install Task 
(IT), and Install Overlay (10) commands are used. A LUNO must be assigned to the relative file and 
used in the IT, 10, and IP commands. The IP command must be executed before the IT command, 
which must be executed before the |O command (if applicable), because the link editor outputs the 
procedure and task segments to a relative file in the order in which they are processed. Relative 
files are read sequentially by the IP and IT commands; therefore, assigning aLUNO to a relative file 
prevents the file from being repositioned to the beginning between commands. The following is an 


example of a link control file linking a procedure segment and task segment, sending output to a 
relative file. 


PROCEDURE RCOBOL 

INCLUDE .S$SYSLIB.RCBPRC 
TASK CBLTSKI 

INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE EX.MAINPRG1 
INCLUDE EX.SUBPRGM 

END 


NOTE 


A procedure segment and task segment cannot be linked to create a 
linked object file if any COBOL object modules contain segmenta- 
tion. COBOL programs with segmentation must be installed auto- 
matically by the Link Editor (through the use of the FORMAT IMAGE 
statement). 
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COMMAND LIST 


FORMAT IMAGE, REPLACE 
PROC RCOBOL 
INCLUDE .S$SYSLIB.RCBPRC 


TASK CBLTSKt LINK CONTROL FILE 


INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE EX. MAINPRGI!I 
INCLUDE EX.SUBPRGM 

END 





PROCEDURE 1, RCOBOL ORIGIN = 0000 


MODU LE NO ORIGIN LENGTH é 


RCBPRC (PSEG) Pt 
CRTIM 0000 3DF4 —— 


PHASE 0, CBLTSKI ORIGIN = 3E00 RCBTSK (PSEG) 


MODULE NO ORIGIN | exer? RCBMPD (PSEG) 
CXCBL 3E00 OCD4 


2 

$DATA 2 4C32 O4EC 

CSMAIN 2 ee ee MAINPRG!1 (PSEG) 
MAINPRG1 4 AAEA OOAC 

$DATA 4 511E O10E + 
SUBPRG 5 4B90 00A2 
$DATA 5 522C OOEA 


RCBTSK (DSEG) 
NOTES: 
1. ORIGIN ADDRESSES MAY DIFFER MAINPRG1 (DSEG) 
2. LENGTHS MAY DIFFER 


SUBPRGM (DSEG) 
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Figure 5-17. Linking a Single Procedure Segment With a Single Task 
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5.7 LINKING LIBRARIES 

The link editor supports two types of library file structures: random libraries and sequential 
libraries. A random library is a directory whose files are the object modules included to resolve 
external references. Figure 5-18 shows the structure of arandom library. 

In Figure 5-18, S$SYSLIB, S$PROC, and C$SUBS are directories, with RCBPRC, RCBTSK, 
RCBMPD, C$TMPF, C$FCFD, C$SCRN, XCCF, and XCPF being data files. Each directory is anode, 
with the highest level (VCATALOG) being the root node. VCATALOG is assigned a symbolic name 
when a disk volume is installed or initialized. VCATALOG contains pointers for each directory 


(node) or file in the level immediately below the VCATALOG. In Figure 5-18, pointers are contained 
in the VCATALOG for directories S$SYSLIB, S$PROC, and C$SUB. 


VCATALOG 
S$ SYSLIB S $ PROC 


Cc $ SUBS 
RCBPRC RCBMPD 


Figure 5-18. Random Library Structure 


2277279 
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Modules in a random library can have more than one entry point. However, the secondary entry 
points are not contained in the directory; consequently, they must be defined to the system as 
aliases if automatic symbol resolution is being used. An alias is an alternate name for a file path- 
name component. If the module is specifically included (by use of the INCLUDE command), an 
alias definition is not required. 


FORMAT IMAGE, REPLACE 
LIBRARY .S$SYSLIB.CSSUBS 
LIBRARY .SCI990.SSOBJECT 
PROCEDURE RCOBOL 

DUMMY 

INCLUDE .S$SYSLIB.RCBPRC 
TASK CBLTSK 

INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE <COBOL object module> 
END 


In the link control file, the INCLUDE command defines modules or files of modules that are to be 
included in a phase. The LIBRARY command specifies the random or sequential libraries that will 
be searched to satisfy unresolved external references in the modules to be linked. The link editor 
automatically processes all control stream commands and then resolves external references in 
the modules from the libraries specified in the LIBRARY commands. It is possible to use the 
SEARCH command in link control files instead of the LIBRARY commands. The SEARCH com- 
mand directs the link editor to perform a search of a library at a particular point in the control 
stream. However, it is recommended that the LIBRARY command be used when external refer- 
ences need to be resolved. Refer to the Link Editor Reference Manual for a detailed explanation of 
the INCLUDE, LIBRARY, and SEARCH commands and an example of entry points. 


A sequential library is a sequential file containing one or more object modules generated by a par- 
tial link edit. The outputs of the partial link edits are concatenated into a sequential file by use of 
the Copy Concatenate (CC) or the Append File (AF) commands. The Link Editor Reference Manual 
includes detailed information about sequential libraries and partial link edits. 


5.8 LINKING LIMITATIONS 


Total memory requirements of a program (task) must be less than the 65,536-byte task address 
space. Any physical buffers used for blocked I/O do not require space in the user’s program 
because they are allocated as a part of and are maintained by the operating system. 


The maximum number of overlays, procedure segments, and task segments permitted in a single 
program file is 255. If the link editor creates the program file, only enough room is allocated for the 
task and procedure segments or overlays as needed in the program. The user may create a pro- 
gram file with the desired limitations using the Create Program File (CFPRO) command. 


Each phase overlay in the link control file requires one entry in the program file. 
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6.1 GENERAL 


COBOL provides for execution of object modules as well as program images. Object module exe- 
cution involves the execution of compiler-produced object modules or linked object modules. 
Program image execution involves the execution of a task that has been installed in a program file. 


6.1.1 Use of aSynonym in the COBOL Select Clause 

If asynonym is used in a COBOL SELECT statement to define the storage medium (a pathname or 
device name), the synonym must be assigned prior to execution of the program. Only single level 
synonym evaluation is performed; that is, the value of a synonym cannot contain another syn- 
onym. For example, asynonym named KEYFILE with a value of VOL1.PAYROLL.P00044 is accept- 
able. A synonym named KEYFILE with a value of A.P00044 (where A is a synonym for 
VOL1.PAYROLL) is not acceptable. To assign a synonym, use the Assign Synonym (AS) SCI com- 

mand. The AS command defines a aening of one or more characters to substitute for another string 
of characters. 


6.2 OBJECT MODULES EXECUTION 

The task loader module, which is included in the reentrant run-time interpreter module, loads the 
object file into memory. The loader module determines the amount of memory required to contain 
the interpretive object code, expands the task memory space by the computed amount, and then 


reads the object file and stores the object code into memory. 


Generally, execution of an object module is not used for production programs for the following 
reasons: 


e COBOL program modules that do not require linking are fairly simple since Oren 
phases and subroutines are not allowed. 


e An increased amount of disk and memory space is required to execute an object 
module. 


e The time required to load the object module into memory is increased. 
Execution of an object module is permissible under the following conditions: 

e The object module must have been produced by the COBOL compiler. 

e The object module must be self-contained. Subroutines are not permitted. 


e The object module may contain program segmentation. 
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Execution of alinked object module is permissible under the following conditions: 
e The object module must have been produced by the COBOL compiler. 
° The object module may contain program segmentation. 


Debugging is permitted in the foreground mode only. To execute a COBOL object module or linked 
object module, enter the XCPF command for foreground execution or the XCP command for back- 
ground execution. The XCPF command allows the program to use the terminal for !/O operations 
during execution. The XCP command allows the terminal to be used for other foreground com- 
mands during the background execution of the COBOL program. 


6.2.1 Execute COBOL Program in Foreground (XCPF) 
To execute an object module or a linked object module in the foreground, use the XCPF command. 
The following prompts appear with the indicated initial values: 


EXECUTE COBOL PROGRAM FOREGROUND <VERSION: L.R.V YYDDD> 
OBJECT ACCESS NAME: pathnamea 
DEBUG MODE: {YES/NO} (NO) 
MESSAGE ACCESS NAME: [Cpathnamea] 
SWITCHES: [Cinteger)] (00000000) 
FUNCTION KEYS: fYES/NO} (NO) 


OBJECT ACCESS NAME — Enter the pathname, synonym, or logical name of the file containing 
the object module. 


DEBUG MODE — Enter YES if the program is to execute in the COBOL debug mode. Debugging is 
permitted in the foreground mode only. The initial value is NO. Section 7 defines debug 
operations. 


MESSAGE ACCESS NAME — No response to this prompt indicates that COBOL system error 
messages are to be listed to the terminal local file (TLF) of the initiating terminal. The TLF is the 
default output file to which SCI sends the results of an operation if no other file or device is speci- 
fied as the destination. Entering a pathname or synonym in response to the prompt indicates 
COBOL system error messages are printed in a user file or on a device in lieu of the TLF. 


If a file name is specified in response to the MESSAGE ACCESS NAME, control returns to the 
main SCI menu upon completion of the execution of the COBOL program. 


However, if two tasks use the same file name for MESSAGE ACCESS NAME, the first task exe- 
cuted opens the file exclusively. The second task abnormally terminates with a TLF error. Refer to 
Appendix C for a listing of run-time error messages. 


SWITCHES — Enter the setting of the software switches to be used by the program. The values 
should be 0 or 1 for each of the eight switches. Setting a value of 1 gives the switch a status of ON; 
0 sets the status to OFF. Example switches are 10010011. The first, fourth, seventh, and eighth 
switches are ON, while the remaining are OFF. The initial value is OOOO0000. Refer to Figure 6-1 for 
an example of the use of software switches in the SPECIAL-NAMES paragraph of a COBOL source 
program module. 
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LINE DEBUG PG/LN eo aiie Oecd daily vara ata tae Jos dah ate os ei arta te det cet Deana cl aclah aha te 


25 

26 SPECIAL-NAMES. 

27 SWITCH-1. 

28 ON STATUS IS SW-1-ON, 
29 OFF STATUS IS SW-1-OFF; 
30 SWITCH-5. 

31 OFF STATUS IS SW-5-OFF, 
32 ON STATUS IS SW-5-ON; 
33 SWITCH-7. 

34 ON IS SW-7-ON; 

35 SWITCH-8. | 

36 OFF IS SW-8-OFF; 


Figure 6-1. SPECIAL-NAMES Paragraph Example 


FUNCTION KEYS — Enter YES to enable a function key to terminate input and allow function key 
codes to be returned through the ON EXCEPTION clause (if specified). This prompt pertains to all 
VDTs to which ACCEPT operations are performed. The initial value is NO (function keys are 
ignored). 


The input text for an ACCEPT operation will be right-justified if all the following conditions are 
true: 


° The ACCEPT operation is performed on aright-justified field. 
e The initial value of the function keys is NO. 


The input text for an ACCEPT operation will also be right-justified if all of the following conditions 
are true: 


e The ACCEPT operation is performed on a right-justified field. 
e The initial value of the function keys is YES. 
° An non-blank prompt value is given. 


The input text for an ACCEPT operation will be right-justified with zero-fill if all of the following 
conditions are true: 


e The ACCEPT operation is performed on anumeric field. 


e The initial value of the function keys is NO. 
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The input text for an ACCEPT operation will also be eee with zero-fill if all of the 
following conditions are true: 


e The ACCEPT operation is performed on anumeric field. 
e The initial value of the function keys is YES. 
e A prompt is given with no operand. 


The input text for an ACCEPT operation will be left-justified with blank-fill if all of the following 
conditions are true: 


e The ACCEPT operation is performed on anumeric field. 
° The initial value of the function keys is YES. 
e No prompt is given. 


6.2.2 Execute COBOL Program in Background (XCP) 
Execution of an object module or a linked object module is performed in background with the XCP — 
command. The following prompts appear with the indicated initial values: 


EXECUTE COBOL PROGRAM <VERSION: L.R.V YYDDD> 
OBJECT ACCESS NAME: pathnamea 
MESSAGE ACCESS NAME: [pathnamea] 
SWITCHES: (CCinteger) ] (00000000) 
FUNCTION KEYS: {YES/NO} (NO) 


The parameters are the same as those described for the XCPF command except for the absence of 
the DEBUG MODE prompt. Debugging is not allowed in background mode. 
6.3 EXECUTION COMPLETION CODES AND RUN-TIME ERROR MESSAGES 


Execution of a COBOL program through a command procedure causes a condition code to be 
returned under the synonym $$CC. The possible values of $$CC are as follows: 


Value Meaning 
0000 Normal termination 
8000 Abnormal termination 
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Any code set by the user through a STOP literal statement is set in the two rightmost positions of 
the condition code, as in the following examples: 


Value Meaning 


0020 Implies anormal completion with a user 
code of >20. (An angle bracket preced- 
ing a number indicates a hexadecimal 
value.) 


8030 Implies abnormal completion after the 
user code is set at >30. 


The synonym $$CC should be checked in batch streams immediately after program execution. 
$$CC is used by other processors, and its integrity is not guaranteed after completion of the batch 
stream or the execution of another command. 


Run-time error messages are provided for errors related to object code resulting from incorrect 
source statements or for system errors. Appendix C contains a listing of these error messages. 


6.4 PROGRAM IMAGE EXECUTION 


All COBOL programs installed as program images (tasks) on program files must have been linked 
to the COBOL run-time interpreter module by the link editor. The COBOL run-time interpreter is 
described in Section 5. At execution time, the operating system task loader loads the user task 
segments and any associated procedure segments into the task memory space. The operating 
system expands the task memory space as necessary. Multiple tasks sharing the same procedure 
segment need only one copy of the procedure segment in memory. This applies whether the proce- 
dure segment is on asystem program file or in a user program file. When tasks from different pro- 
gram files are executed concurrently, each individual task segment and its associated procedure 
segment are loaded into memory at execution time. 


6.4.1. Execute COBOL Task in Foreground (XCTF) 
The XCTF command executes a COBOL task in foreground. The task must have been previously 
installed on a program file. The following prompts appear with the indicated initial values: 


EXECUTE COBOL TASK FOREGROUND <VERSION: L.R.V YYDDD> 
PROGRAM FILE LUNO: integer 
TASK ID OR NAME: integer 


DEBUG MODE: {YES/NO} (NO) 
MESSAGE ACCESS NAME: [(pathname) ] 
SWITCHES: [CCinteger) ] (00000000) 
FUNCTION KEYS: {YES/NO} (NO) 


PROGRAM FILE LUNO — Enter the LUNO (global or station) assigned to the program file on which 
the task is installed. The LUNO must have been assigned previously with the Assign LUNO (AL) 
command or the Assign Global LUNO (AGL) command. 
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The AL command assigns a task-local LUNO to a device or file accessible to the task for I/O oper- 
ations. The AGL command assigns a LUNO to adevice or file that is available to more than one job. 
For the AL and AGL commands, if you do not specify a LUNO, the system will assign one that is 
available. If you specify a LUNO to which the device or file is currently assigned, an error is 
returned. 


TASK ID OR NAME — Enter the installed task ID or task name specified in the link control file. 


DEBUG MODE — Enter YES if the task is to be executed in the COBOL debug mode. If a YES is 
entered, the task must have been linked using the run-time task entry module with the COBOL 
debugger (.S$SYSLIB.RCBTSKD); otherwise, an execution error is generated. The initial value is 
NO. Debug operations are defined in Section 7. 


MESSAGE ACCESS NAME — No response to this prompt indicates that COBOL system error 
messages are to be printed to the terminal local file (TLF) of the initiating terminal. Entering a path- 
name or synonym causes COBOL system error messages to be written to this user file instead of 
the TLF, and control will return to the main SCI menu at completion of the COBOL program. 


Users must note that if two tasks use the same file name for MESSAGE ACCESS NAME, the first 


task executed opens the file exclusively. A subsequent task abnormally terminates with a mes- 
Sage access error. 


SWITCHES — Enter the setting of software switches to be used by the program. The value should 
be 0 or 1 for each of the eight switches. Setting a value of one gives the switch a status of ON; 0 
sets the status to OFF. Example switches are 10010011. The first, fourth, seventh, and eighth 
switches are ON, while the remaining are OFF. The initial value is OOOOOOOO. Refer to Figure 6-1 for 
an example of the use of software switches in the SPECIAL-NAMES paragraph of a COBOL source 
module. 

FUNCTION KEYS — Enter YES to enable a function key to terminate input. The function key code 
will be returned through the ON EXCEPTION clause (if specified). This prompt pertains to all VDTs 
to which ACCEPT operations are performed. The initial value is NO (function keys are ignored). 


The input text for an ACCEPT operation will be right-justified if all the following conditions are 
true: 


° The ACCEPT operation is performed on aright-justified field. 
e The initial value of the function keys is NO. 


The input text for an ACCEPT operation will also be right-justified if all of the following conditions 
are true: 


e The ACCEPT operation is performed on aright-justified field. 
e The initial value of the function keys is YES. 


e An non-blank prompt value is given. 
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The input text for an ACCEPT operation will be right-justified with zero fill if all of the following 
conditions are true: 


° The ACCEPT operation is performed on anumeric field. 
e The initial value of the function keys is NO. 


The input text for an ACCEPT operation will also be right-justified with zero fill it all of the fol- 
lowing conditions are true: 


° The ACCEPT operation is performed on anumeric field. 
° The initial value of the function keys is YES. 
e A prompt ts given with no operand. 


The input text for an ACCEPT operation will be left-justified with blank fill if all of the following 
conditions are true: 


° The ACCEPT operation is performed on anumeric field. 
e The initial value of the function keys is YES. 
e No prompt is given. 


6.4.2 Execute COBOL Task in Background (XCT) 
The XCT command executes a COBOL task in background mode. The task must have been pre- 
viously installed on a program file. The following prompts appear with the indicated initial values: 


EXECUTE COBOL TASK <VERSION: L.R.V YYDDD> 
PROGRAM FILE LUNO: integer 
TASK ID OR NAME: integer 
MESSAGE ACCESS NAME: [pathnamea] 
SWITCHES: [Cinteger) ] (00000000) 
FUNCTION KEYS: {YES/NO} (NO) 


The responses to the XCT prompts are the same as those described for the XCTF command except 
for the absence of the DEBUG MODE prompt. Debugging is not allowed in background mode; 


therefore, the task must have been linked using the run-time interpreter module without the 
COBOL debugger (.S$SYSLIB.RCBTSk). 


6.5 EXECUTION COMPLETION CODES AND RUN-TIME ERROR MESSAGES 


The execution completion codes described previously for the XCPF and XCP commands are the 
same as for the XCTF and XCT commands. Run-time error messages are described in Appendix C. 
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6.6 PROGRAM TERMINATION MESSAGES 


The COBOL run-time termination messages, STOP RUN AT ... and END COBOL RUN are not dis- 
played to the message file when a program terminates normally. This enhances performance 
because Assign LUNO, Open File, Write, and Close operations to the COBOL message file are 
avoided. If the messages are desired, they can be produced by changing parameter 6 in the .BID or 
.QBID of the XCTF, XCT, XCP, and XCPF SCI commands. The parameter value should be changed 
from N to Y to achieve this. That is, the statement 


EXAMPLE: 


PARMS = ("'aa$XCP$0"',&DEBUG MODE,@&MESSAGE ACCESS NAME, 
"&SWITCHES',&FUNCTION KEYS,''N",,) 


should be changed to 


PARMS = ("aaSXCP$O",&DEBUG MODE,@&MESSAGE ACCESS NAME, 
"&SWITCHES',&FUNCTION KEYS,''Y",,) 
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7.1 DEBUG MODE 
Debug mode allows you to perform the following functions: 
e Specify address stops, single statement execution, or data item dumps 
e Eliminate or change address stops 
e Modify selected data items 
e Designate the next address in the program to be executed | 
e Write the contents of the screen to the message file 
e Exit from the debug mode 


e Quit execution of a task 


7.2 DEBUGGING A COBOL MODULE 


The debugger is designed specifically for the COBOL run-time interpreter. At any of the following 
times, the debugger assumes control of the video display terminal (VDT) from which the COBOL 
program is executed: 


e Before program execution 
e When an address stop is encountered 


° When a STOP RUN statement or an untrapped error condition causes the program to 
terminate 


When the debugger is in control of the VDT, it responds to the debug commands described later in 
this section. 


7.2.1 Activating the Debugger 

Note that the COBOL debugger runs snl in foreground mode. For this reason, use the Execute 
COBOL Program Foreground (XCPF) or the Execute COBOL Task Foreground (XCTF) SCI com- 
mand to activate the debugger. Before using XCTF to activate the debugger, you must first link the 
task using the run-time interpreter task entry module with the COBOL debugger 
(.S$SYSLIB.RCBTSKD). However, when you use XCPF to activate the debugger, this step is not 
necessary. The XCPF automatically bids one of two prelinked tasks (either with or without the 
COBOL debugger), depending on your response to the DEBUG MODE prompt. 
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To activate the debugger, enter YES after the DEBUG MODE prompt. The debugger responds by 
displaying the following information on your screen: 


ADDRESS STOP: <currently active address stops> 
mmmmmmxxyyyy D? 


where: 


ADDRESS STOP lists the currently active address stops; a maximum of four address stops 
can be assigned. 


mmmmmm names the module currently being executed. 


xxyyyy are hexadecimal digits that specify the address of the next COBOL source statement 
to be executed. If the source statement address is in a segmented COBOL module, specify 
the segment number in the first two digits (xx) and the statement address in the next four 
digits (yyyy). Omit the segment number when the source statement is not in a segmented 
COBOL module. 3 


D? indicates that you can now enter debug commands. 
EXAMPLE 1 


ADDRESS STOP: SEG 0100, SEG 050300, SUBONE 0050, SUBTWO 1C 
SGMEN 010000 D? 


This example lists the four currently active address stops (SEG 0100, SEG 050300, SUBONE 0050, 
and SUBTWO 1C). The name of the module that is currently executing is S@MEN. The source state- 
ment to be executed next is located at address 010000. Note that this six-digit number indicates 
that module SGMEN is a segmented COBOL module. The segment number is 01 and the source 
statement is at address 0000. 


EXAMPLE 2 


ADDRESS STOP: SEG 0100 
MAIN 0000 D? 


This example lists only one currently active address stop (SEG 0100). The name of the module cur- 
rently executing is MAIN. The source statement to be executed next is located at address 0000. 
Note that this address is only four digits long, indicating that module MAIN is not located in a 
segmented COBOL module. The source statement is located at address 0000 in the main program. 


EXAMPLE 3 


ADDRESS STOP: SEG 0100, SEG 050300, SUBONE 0050 
GRAPHI 0040 D? 


This example lists three active address stops (SEG 0100, SEG 050300, and SUBONE 0050). The 
name of the module currently executing is GRAPHI. The source statement to be executed next is 
at the address 0040. Note that this address is only four digits long, indicating that module GRAPHI 
is not located in a segmented COBOL module. The source statement is at the address 0040 in the 
main program. 
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7.2.2 COBOL Debug Commands 

COBOL debug commands consist of a single letter followed by a string of hexadecimal fields sep- 
arated by commas. The total length of a debug command cannot exceed 20 characters. In the 
command formats that follow, brackets indicate optional arguments. Blanks terminate the scan. 
After executing a valid command, the debugger requests another command by displaying the 
following prompt: 


D? 


If the debugger encounters an error in decoding a command, one of the following messages 
appears: 


Error Code Explanation 
C? The command Is unrecognizable. 
S? A syntax error occurred in the operands. 
V? The value of the operand(s) is out of range. 


Debug supports ten commands. Table 7-1 lists these commands, and the following paragraphs 
explain the commands. 


Table 7-1. Debug Commands 
Command Name 


Assign Address Stop 

Dump Data Item 

Exit Debug Mode 

Change Program Location 
Modify Data Item 

Quit Execution 

Resume Program Execution 
Execute Next Single Statement 
Undo Address Stop 

Write Screen to Message File 


Scnowozrmop, 


NOTE 
Any COBOL run-time errors return control to the debugger after 


writing the error message to the message file. This allows inspec- 
tion of dataitems. 
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Figure 7-1 contains a compiler output listing for a COBOL program. The paragraphs that follow 
refer to sections of this figure. 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 1 
SOURCE ACCESS NAME: MANUAL.PG.SRC.FIGO701 
OBJECT ACCESS NAME: DUMY 
LISTING ACCESS NAME: MANUAL.PG.LST.FIG0701 
OPTIONS: M 
PRINT WIDTH: 80 
PAGE SIZE: 55 
PROGRAM SIZE (LINES): 1000 
DXCBL | L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 2 
LING: \DEBUG PG/LN -Aii Buc ticiataciiieocsuentioneeeduetewaldawcandideempesae sot sant 
1 IDENTIFICATION DIVISION. 
2 PROGRAM-ID. DATA-TYPES. 
3 ENVIRONMENT DIVISION. 
4 CONFIGURATION SECTION. 
5 SOURCE-COMPUTER. TI-990. 
6 OBJECT-COMPUTER. TI-990. 
7 DATA DIVISION. 
8 WORKING-STORAGE SECTION. 
9 
10 kkk ALPHANUMERIC 
11 01 ANS PIC X(20) VALUE '"'CORRECT RESULT: 330". 
12 
13 xkkk ALPHABETIC 
14 01 ABS PIC AC20) VALUE "COMPUTED RESULT:"'. 
15 
16 xk DISPLAY SIGNED LEADING 
17 01 NL PIC $9(6) SIGN LEADING VALUE +45. 
18 
19 xkkk DISPLAY SIGNED LEADING SEPARATE 
20 01 NLS PIC S9(6) SIGN LEADING SEPARATE VALUE 55. 
21 
22 kkkk DISPLAY SIGNED TRAILING 
23 01 NT PIC S$9(6) SIGN TRAILING VALUE 50. 
24 
25 xkxk NUMERIC DISPLAY SIGNED (TRAILING SEPARATE) 
26 01 NSS PIC S$9(6) VALUE 30. 
27 
28 kkxk NUMERIC DISPLAY UNSIGNED 
29 01 NSU PIC 9(6) VALUE 25. 
30 
31 keke = COMPUTATIONAL UNSIGNED 
32 01 NCU PIC 9(5) COMP VALUE 15. 
33 
34 zeke = COMPUTATIONAL SIGNED 
35 01 NCS PIC S9(5) COMP VALUE 20. 
36 
Figure 7-1. Compiler Output Listing (Sheet 1 of 3) 
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37 xkkk BINARY SIGNED OR UNSIGNED (COMPUTATIONAL-1) 

38 01 NBS PIC $9(5) COMP-1 VALUE 5. 

39 

40 xxkk*k NUMERIC PACKED DECIMAL (COMPUTATIONAL-3) ‘ 

41 01 NPS PIC $9(5) COMP-3 VALUE +10. 

42 

43 xxkk*k MULTI-WORD BINARY UNSIGNED (COMPUTATIONAL-4) 

44 01 NMB PIC 99 COMP-4 VALUE 35. 

45 

46 xxkx*k MULTI-WORD BINARY SIGNED (COMPUTATIONAL-4) 

47 01 NMS PIC $9(4) COMP-4 VALUE 40. 

48 

49 xkk*kk NUMERIC EDITED 

50 01 NSE PIC 229. 

51 

52 x*kk* ALPHANUMERIC EDITED 

53 01 ANSE PIC XX/XX/XX. 

54 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 3 

LINE DEBUG PG/LN De ier Re nossa nied cat eh beastie Bache Macks GR oe En Cs Ee Es 

55 kkk* GROUP 

56 01 GRP. 

57 02 YR PIC XX. 

58 02 MO PIC XX. 

59 02 DA PIC XX. 

60 

61 PROCEDURE DIVISION. 

62 >0000 BEGIN. 

63 >0000 ACCEPT GRP FROM DATE. 

64 >0004 MOVE GRP TO ANSE. 

65 >0008 DISPLAY ANSE LINE 1 ERASE. 

66 >0010 COMPUTE NSE = NBS + NPS + NCU + NCS + NSU + 

67 NSS + NMB + NMS + NL + NT + NLS. 

68 >0028 DISPLAY ANS LINE 2. 

69 >002E DISPLAY ABS LINE 3. 

70 >0034 DISPLAY NSE LINE 3 POSITION 18. 

71 >003C ACCEPT YR. 

(2 >0040 STOP RUN. 

73 ‘2Z222Z END PROGRAM. xkk END OF FILE 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 4 
ADDRESS SIZE DEBUG ORDER TYPE NAME 

>002A 20 +#£2ANS 0 ALPHANUMERIC ANS 

>003E 20 +# ABS 0 ALPHABETIC ABS 

>0052 6 NL 0 NUM LEAD SIGNED NL 

>0058 7 NLS 0 NUM SEP LEAD SIGNED NLS 

Figure 7-1. Compiler Output Listing (Sheet 2 of 3) 
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>0060 
>0066 
>006E 
>0074 
>007A 
>0080 
>0082 
>0086 
>0088 
>008A 
>008E 
>0096 
>0096 


>0098 
>009A 


oo 


MN N oO 


NT 


NSS 


NSU 


NCU 


NCS 


NBS 


NPS 


NMB 


NMS 


NSE 


ANSE 


GRP 


ANS 


ANS 
ANS 


READ ONLY BYTE SIZE = 


READ/WRITE BYTE SIZE 


oo Oo © 


OVERLAY SEGMENT BYTE SIZE 


TOTAL BYTE SIZE 


7-6 


0 ERRORS 


QO WARNINGS 


Figure 7-1. 


NUM TRAIL SIGNED 
NUM SEP LEAD SIGNED 
NUMERIC UNSIGNED 
COMP UNSIGNED 

COMP SIGNED 

BINARY SIGNED 
PACKED SIGNED 

MULTI BINARY 

MULTI BINARY SIGNED 
NUMERIC EDITED 
ALPHANUMERIC EDITED 
GROUP 

ALPHANUMERIC 


ALPHANUMERIC 
ALPHANUMERIC 


>O00F8 


>O009E 


>0000 


>0196 


NT 


NSS 


NSU 


NCU 


NCS 


NBS 


NPS 


NMB 


NMS 


NSE 


ANSE 


GRP 


YR 


MO 
DA 


Compiler Output Listing (Sheet 3 of 3) 
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7.2.2.1. Assign Address Stop Command (A). The A command indicates the address at which 
normal execution of the program stops and the debugger assumes control. This address stop is 
cleared whenever a breakpoint is set, but you can assign up to four address stops. After you 
assign address stops, use the Resume command (R) to resume execution of the program. You can 
use the Undo Address Stop (U) command to eliminate any address stops you assigned with the A 
command. The A command is as follows: 


AChh] hhhhL, PROGID] 
where: 


hh is an optional hexadecimal number signifying the segment number in PROGID at which 
execution stops. When the segment number is omitted, it is assumed to be zero. 


hhhh represents up to four hexadecimal digits specifying the address in program PROGID at 
which execution stops. Leading zeros of the address may be omitted unless the segment 
number is specified. The address is the address printed in the DEBUG column of the compiler 
listing. (Refer to the data maps in Figure 7-1.) 


PROGID is an optional operand that names the program unit in which the stop is located. If 
omitted, the stop is assumed to be located in the program unit that is currently executing. 


The following are examples of the A command: 
Example | Meaning 


A0202 Assign an address stop in the current COBOL module at 
address 0202. 


A012345,SUB1 Assign an address stop at location 2345 of segment 01 in pro- 
gram SUB1. 
NOTE 
lf astop address is reached during execution, that address is elimi- 
nated from the list of stop addresses. If you wish to stop at a given 


address in a loop each time it is executed, you must assign that 
address each time to program stops before restarting execution. 
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7.2.2.2 Dump Data ltem Command (D). This command displays memory at a specified address 
in the format of aspecified data type. The D command has two possible formats. , 


D Command: First Format. The first format of the D command displays data items from the DATA 
DIVISION: 


Dhhhh,ddL[, TYPE] 
where: 


hhhh gives the hexadecimal address printed in the ADDRESS column of the compiler listing 
that contains the data maps. (Refer to the ADDRESS column of the data maps in Figure 7-1.) 


dd is adecimal number indicating the number of characters to be displayed. This information 
also appears in the listing. (Refer to the SIZE column of the data maps in Figure 7-1.) 


TYPE consists of two, three, or four letters that abbreviate the data type. (Refer to the DEBUG 
column of the data maps in Figure 7-1.) 


Both the data type and its valid abbreviation are shown for each data item in the listing. The valid 
abbreviations are as follows: | 


Abbreviation Description 
ABS Alphabetic 
ANS Alphanumeric 


ANSE Alphanumeric edited 
GRP Group 
HEX Default 
NBS Binary signed (COMP-1) 
NCS Computational signed (COMP) 
NCU Computational unsigned (COMP) 
NL Numeric leading signed 
NLS Numeric leading separate signed 
NMB Multiword binary (COMP-4) 
NMS Multiword binary signed (COMP-4) 
NPS Numeric packed signed (COMP-3) 
NSE Numeric edited 
NSS Numeric display signed 
NSU Numeric display unsigned (DISP) 
NT Numeric trailing signed 
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The following is an example of the first format of the D command: 
Example Meaning 


D096,6,GRP Display the contents of a six-character data item 
from the data division at address 096. 


DO6E,6,NSU Display the six-character numeric field from the data 
division at address O6E. 


D Command: Second Format. The second format of the D command displays data items from the 
LINKAGE SECTION of a separately compiled program: 


DLdd€+hhhh],ddL, TYPE] 
where: 


L indicates that a data item from the LINKAGE SECTION of a separately compiled program is 
to be displayed. 


dd is an ordinal number specifying which data item of the linkage data items is to be 
displayed. 


+ hhhh is ahexadecimal offset from the starting address of the data item. You can omit this. 


dd is adecimal number indicating the number of characters to be displayed. This information 
also appears in the listing. (Refer to the SIZE column of the data maps in Figure 7-1.) 


TYPE is a two-, three-, or four-letter abbreviation specifying the data type. When you do not 
enter a type, the display of the data items is in hexadecimal. 


The following is an example of the second format of the D command: 


Example Meaning 
DL1,5,HEX Display five characters of the first linkage item in 
hexadecimal. 
DL3 + F0;16,ANS Display sixteen alphanumeric characters of the third 


linkage item starting at offset FO. 
7.2.2.3 Exit Debug Mode Command (E). This command discontinues execution of the current 
user module under control of the debugger. The program continues to execute, but in normal 
mode. The format of the command is as follows: 


E 


No operand is required. 
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7.2.2.4 Change Program Location Command (L). The Lcommand designates the next address in 
the program to be executed. The format of the command is as follows: 


LUIxxlyyyy 


where: 


xx is an optional hexadecimal digit signifying the segment number. The default is zero. 


NOTE 


If you are currently executing in the fixed segment, you can only 
change location within the fixed segment. If you are currently exe- 
cuting in an independent segment, you can change location within 
either that segment or the fixed segment. 


yyyy is a hexadecimal digit showing the address in the current program module where exe- 
cution begins. This address is printed in the DEBUG column of the compiler listing. 


NOTE 


You must enter four hexadecimal digits for the address when you 
specify the segment number. You can omit the leading zeros of the 
address when you do not specify the segment number. Unpredic- 
table results occur if the value you give is not the beginning of a 
statement from the DEBUG column. (Refer to the data maps in 
Figure 7-1.) 


The following are examples of the L command: 


Example Meaning 
L0404 Execute the current COBOL module starting at 
address 0404. 
L Execute the current COBOL module at the beginning 


of the current program module. 
NOTE 


The L command has no effect when you enter the debugger after 
normal program termination. 
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7.2.2.5 Modify Data ltem Command (M). The M command is used to overwrite the existing con- 

tents of items in the DATA DIVISION of a program or in the LINKAGE SECTION of a separately 

compiled program. Modifications can consist of either ASCII strings or hexadecimal digits. The 

command has six possible formats. 

M Command: First Format. The first format for the M command is as follows: 
Mhhhh,>hL[,h,...,h] 


where: 


hhhh is the hexadecimal address printed in the ADDRESS column of the compiler listing that 
contains the data maps. 


>h{[,h,...,h] indicates a hexadecimal modification. One or more one- or two-digit hexadecimal 
numbers can follow the right angle bracket ( > ). Each number is placed into one byte of stor- 
age. Any numbers to the right of the first one are placed at memory locations whose 
addresses are successively greater than the initial hhhh hexadecimal address. 

The following is an example of format one: 


Example Meaning 


M1237, >FF,20,D,1 Place >FF at location 1237, >20 at location 1238, 
> 0D at location 1239, >01 at location 123A. 


M Command: Second Format. Thesecond format for the M command is as follows: 
Mhhhh,'"'string" 
where: 


hhhh is the hexadecimal address printed in the ADDRESS column of the compiler listing that 
contains the data maps. 


“string” is the ASCII string to be placed at that hexadecimal address. 


NOTE 
To print the “ character within a string, you must enter that 
character twice. For example, STR*“ING will yield STRING. 
The following is an example of format two: 
Example Meaning 


M1FFO,“TEXAS” Place the string TEXAS starting at memory location 
> 1FFO. 
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M Command: Third Format. The third format forthe M command is as follows: 
Mhhhh,''string'',dd 
where: 


hhhh is the hexadecimal address, printed in the ADDRESS column of the compiler listing that 
contains the data maps. 


“string” is the ASCII string to be placed at that hexadecimal address. 
dd is an optional decimal number indicating the total length of the field to be modified. 
Operand dd must be equal to or greater than the number of characters in the ASCII string. If 
operand dd is greater than the number of characters in the string, the difference between 
them indicates the number of blanks which are appended to the right of the string and written 
to memory. 

The following is an example of format three: 


Example Meaning 


M100F,“‘RIGHT PAD’’,40 Place the string RIGHT PAD, followed by 31 blanks, 
starting at memory location 100F. 


M Command: Fourth Format. The fourth format for the M command is as follows: 
MLdd[+hhhh],>h[,h...h] 
where: 
L indicates that a data item from the LINKAGE SECTION of a separately compiled program is 
to be modified. 
WARNING 
Users can accidentally modify data outside the LINKAGE SECTION. 


Addresses for linkage items are not verified. It is the user’s respon- 
sibility to enter correct addresses. 


dd is a decimal ordinal number specifying which data item of the linkage data items is to be 
modified. 

+ hhhh is an optional hexadecimal offset from the starting address of the dataitem. 

>h[,h...h] indicates a hexadecimal modification. One or more one- or two-digit hexadecimal 
numbers can follow the right angle bracket ( > ). Each number is placed into one byte of stor- 


age. Any numbers to the right of the first one are placed at memory locations whose 
addresses are successively greater than those of the initial data item. 
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The following is an example of format four: 
Example — Meaning 


ML4 + F0,>1,D,20,FF Place >01, >0D, >20, and >FF starting at the 
address of linkage item four plus >O0OFO. 


M Command: Fifth Format. The fifth format for the M command is as follows: 
MLdd€+hhhh],"string" 
where: 
L indicates that a data item from the LINKAGE SECTION of a separately compiled program is 
to be modified. 
WARNING 
Users can accidentally modify data outside the LINKAGE SECTION. 


Addresses for linkage items are not verified. It is the user’s respon- 
sibility to enter correct addresses. 


dd is a decimal ordinal number specifying which data item of the linkage data items is to be 
modified. 
+ hhhh is an optional hexadecimal offset from the starting address of the data item. 
“string” is the ASCII string to be placed at that hexadecimal address. 
The following is an example of format five: 
Example Meaning 


ML3,“INSTRUMENTS” Place the string INSTRUMENTS starting at the 
address of the third linkage item. 


M Command: Sixth Format. The sixth format for the Mcommand is: 
MLdd({+hhhh],'"'string'',dd 
where: 


L indicates that a data item from the LINKAGE SECTION of aseparately compiled program is 
to be modified. 
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WARNING 
Users can accidentally modify data outside the LINKAGE SECTION. 


Addresses for linkage items are not verified. It is the user’s respon- 
sibility to enter correct addresses. 


dd is a decimal ordinal number specifying which data item of the linkage data items is to be 
modified. 
+ hhhh is an optional hexadecimal offset from the starting address of the data item. 
‘string’ is the ASCII string to be placed at that hexadecimal address. 
dd is an optional decimal number indicating the total length of the field to be modified. It 
must be equal to or greater than the number of characters in the ASCII string. If it is greater, 
the difference indicates the number of blanks that are appended to the right of the string and 
written to memory. 

The following is an example of format six: 


Example Meaning 


ML5,‘“LONG STRING’’,45 Place the string LONG STRING, followed by 34 
| blanks, at the address of the fifth linkage item. 


7.2.2.6 Quit Execution Command (Q). The Q command terminates the current user program 
under control of the debugger and returns control to SCI. The format of the command is as 
follows: 

Q 


No operand is required. 


7.2.2.7 Resume Program Execution Command (R). The Rcommand resumes program execution 
after you assign all address stops. The format of the command is as follows: 


R 
No operand is required. 


7.2.2.8 Execute Next Single Statement Command (S). The S command executes one COBOL 
statement and returns control to the debugger. The format of the command is as follows: 


S 


No operand is required. 
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NOTE 


The S command has no effect when the debugger is entered after 
normal program termination. 


7.2.2.9 Undo Address Stop Command (U). The U command eliminates address stops you 
assigned with the A command. The format for the U command is as follows: 

UChh) hhhhlE,progid) 
where: 


hh is an optional hexadecimal number signifying the segment number in progid at which the 
address stop was assigned. When the segment number is omitted, it is assumed to be zero. 


hhhh is four or less hexadecimal digits signifying the address in program progid at which an 
address stop was assigned. This address is the address printed in the DEBUG column of the 
compiler listing. (Refer to the data maps in Figure 7-1.) When you omit the segment number, 
you can omit leading zeros of the address. When you specify a segment number, you must 
enter four hexadecimal digits for the address. 


Progid is an optional operand that names the program unit tn which the address stop was 
assigned. If you omit this operand, the address stop is assumed to be located in the program 
that is currently executing. 

The following are examples of the U command: 


Example Meaning 


U0202 Remove an address stop in the current module at 
address 0202. 


U012345,SUB1 Remove an address stop at location 2345 of segment 01 
in program SUB1. 


7.2.2.10 Write Screen to Message File Command (W). This command writes the contents of the 
screen to the device or file you specified in response to the prompt MESSAGE ACCESS NAME 
that appeared when you executed the COBOL program or task. The format for the W command is 
as follows: 

W 


No operand is required. 
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7.3 DEBUGGING OF ASSEMBLY LANGUAGE SUBROUTINES LINKED TO COBOL PROGRAMS 


You can use an interactive symbolic debugging program to debug assembly language program 
object modules linked to COBOL program object modules as subroutines. The interactive debug- 
ger is provided as an operating system utility; it is not the COBOL debugger. The interactive 
debugger operates from either an interactive VDT or an interactive hard-copy terminal. 


The debugger allows you to display and modify central processing unit (CPU) registers, workspace 
registers, and memory. It also allows controlled execution of a task. 


In the run mode, you can halt and resume. You can also set new breakpoints to halt the task. In the 
simulation mode, the system analyzes the execution between each instruction. You can specify 
trap conditions that interrogate the program counter (PC) or you can specify memory content. 
Breakpoints designed to halt task execution can be conditional on a given number of accesses 
within a specified range of PC values, memory locations, or communications register unit (CRU) 
addresses. You can set breakpoints at given status register (SR) values or supervisor calls (SVCs). 


NOTE 


You can use this method of debugging an assembly language 
module only with a linked program image using the Execute COBOL 
Task Debug (XCTD) command. 


Figure 7-2 through Figure 7-5 are examples of debugging interactively. Figure 7-2 shows how the 
interactive debugger operates under user control. 


WARNING 


Because of the way the system debugger is executed, there is a 
possible conflict between it and a COBOL program. If the COBOL 
program has been executed with the function keys enabled and the 
System Debugger is then executed, the function keys will be dis- 
abled. This problem is most common when the COBOL program 
executes an ACCEPT/DISPLAY command while still in the System 
Debugger. However, this problem may also occur at any time. 
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CIAGL 
ASSIGN GLOBAL LUNO 
LUNO: 
ACCESS NAME: .PROFILE 
PROGRAM FILE ?: YES 
ASSIGNED LUNO = >4 
CIXCTD 
EXECUTE COBOL TASK DEBUG <VERSION: L.R.V. YYDDD> 
PROGRAM FILE: >4 
TASK ID OR NAME: 1 
MESSAGE ACCESS NAME: 
SWITCHES: 00000000 
FUNCTION KEYS: NO 
CIJAB 
ASSIGN BREAKPOINTS 
RUN ID: >DC 
ADDRESS(ES): O4E6C+04E 
CURT 
RESUME TASK 
RUN ID: >DC 
CSP 
SHOW PANEL 
RUN ID: >DC 
MEMORY ADDRESS: 
CLM 
LIST MEMORY 
RUN ID: >DC 
STARTING ADDRESS: #R5 
NUMBER OF BYTES: #R6 
LISTING ACCESS NAME: 
CJDPB 
DELETE AND PROCEED FROM BREAKPOINT 
RUN ID: >DC 
DESTINATION ADDRESS(ES): 
CIWAIT 


Figure 7-2. Interactive Debugging Example 


A debugging session includes these steps: 


1. Assign a global LUNO to the program file containing the task to be executed. In 
Figure 7-2, LUNO >4 is assigned to the program file .PROGFILE. 


2. Execute the XCTD command to bid the task in suspended state as shown in Figure 7-2. 
SCI assigns a task ID that is used as the initial value for the commands issued after this 
step. Figure 7-2 uses >DC. The workspace registers and memory locations at the begin- 
ning of the task appear on the VDT screen. 


3. Examine the link edit listing to obtain the origin address of the assembly module to be 
debugged. Figure 7-2 uses address O04E6C. 
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9. 


Assign a breakpoint to a particular instruction address of the assembly language 
module. This address will be the assembly module origin address (from the link edit 
listing) plus a displacement of the instruction within the module. (Refer to Figure 7-3.) 
The task executes until it encounters the breakpoint address. Figure 7-2 uses 04E6C 
plus adisplacement of 04E. 


NOTE 


Overlay phases must be in memory before you can assign break- 
point addresses within them. Therefore, you should link the 
modules to be overlayed into the root phase (phase 0) of the task for 
debugging purposes. 


Begin execution of the task with the Resume Task (RT) command. 
Issue a Show Panel (SP) command periodically to determine if execution has reached 
the breakpoint address. If so, the task status appears on the VDT screen as 


STATE = 06(BP). 


Perform other operations such as List Memory (LM), Modify Workspace Register (MWR), 
Modify Internal Registers (MIR), and Modify Memory (MM) while at this breakpoint. 


Remove the breakpoint and resume the task with the Delete and Proceed from Break- 
point (DPB) command. If you set another breakpoint, the task executes to the next break- 
point; otherwise, the task executes to completion. 


Wait for execution to complete with a Wait (WAIT) command. 


Figure 7-3 is the COBOL module that calls the assembly language modules. Figure 7-4 and Figure 
7-5 are examples of assembly language modules. 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT= PAGE 1 
SOURCE ACCESS NAME: MANUAL.DN.SRC.COBOL 
OBJECT ACCESS NAME: MANUAL.DN.OBJ.COBOL 
LISTING ACCESS NAME: MANUAL.DN.LST.COBOL 
OPTIONS: 
PRINT WIDTH: 80 
PAGE SIZE: 55 


PROGRAM SIZE (LINES): 1000 


Figure 7-3. COBOL Program Calling Assembly Language Modules (Sheet 1 of 2) 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT= PAGE 2 
LINE DEBUG PG/LN | es aera arn eg ee ea eae ee ee ee ee ee ee eee ee ee ee eee ee ee ee 
1 IDENTIFICATION DIVISION. 
2 PROGRAM-ID. GETDATE. 
3 ENVIRONMENT DIVISION. 
4 CONFIGURATION SECTION. 
5 SOURCE-COMPUTER. TI990. 
6 OBJECT-COMPUTER. TI990. 
4 DATA DIVISION. 
8 WORKING-STORAGE SECTION. 
9 01 SVC-BLOCK. 
10 * SVC >03 RETRIEVES DATE AND TIME. 
11 02 CALL-CODE PIC 9 COMP-4 VALUE >03. 
12 02 ERROR-CODE PIC 9 COMP-4. 
13 02 TIME-BUFFER-ADDRESS PIC 999 COMP-4. 
14 01 TIME-BUFFER. 
15 02 YEAR PIC 999 COMP-4. 
16 02 JUL PIC 999 COMP-4. 
17 02 HOUR PIC 999 COMP-4. 
18 02 MIN PIC 999 COMP-4. 
19 02 SEC PIC 999 COMP-4. 
20 01 FIELD PIC Z2ZZ9. 
21 PROCEDURE DIVISION. 
22 >0000 MAIN-SECTION. 
23 >0000 CALL "ADDRES" USING TIME-BUFFER, TIME-BUFFER-ADDRESS. 
24 >0002 MOVE >00 TO ERROR-CODE. 
25 >0006 CALL "IOCALL'" USING SVC-BLOCK. 
26 >0008 IF ERROR-CODE NOT = >00 STOP RUN. 
27 >0010 MOVE YEAR TO FIELD. 
28 >0014 DISPLAY FIELD ERASE LINE 1. 
29 >001C MOVE JUL TO FIELD. 
30 >0020 DISPLAY FIELD LINE 1 POS 6. 
31 >0028 MOVE HOUR TO FIELD. 
32 >002C DISPLAY FIELD LINE 1 POS 11. 
33 >0034 MOVE MIN TO FIELD. 
34 >0038 DISPLAY FIELD LINE 1 POS 16. 
35 >0040 MOVE SEC TO FIELD. 
36 >0044 DISPLAY FIELD LINE 1 POS 21. 
37 >004C ACCEPT FIELD LINE 24. 
38 ZZZZZZ END PROGRAM. **x* END OF FILE 
READ ONLY BYTE SIZE = >0102 
READ/WRITE BYTE SIZE = >0044 
OVERLAY SEGMENT SIZE = >0000 
TOTAL BYTE SIZE = >0146 
0 ERRORS 
0 WARNINGS 


Figure 7-3. COBOL Program Calling Assembly Language Modules (Sheet 2 of 2) 
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SDSMAC L.R.V YY.DDD 


NAMES TABLE 


SOURCE ACCESS NAME= 
OBJECT ACCESS NAME= 
LISTING ACCESS NAME= 


ERROR ACCESS NAME= 
OPTIONS= 


ADDRES 


RETRIEVE DATA ITEM ADDRESS 


0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 


0018 
0019 
0020 
0021 
0022 
0023 


0024 
0025 
0026 
0027 
0028 
0029 
0030 


0000 
0000 
0002 
0004 
0006 
0008 
OO0A 
000C 
OO0E 
0010 
0012 


NO ERRORS, 
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0004 
0000 


C01D 
C070 
0281 
0004 
1603 
COBO 
CODO 
C4C2 
0380 


IDT 


* 


MANUAL.ON.SRC 
MANUAL.DN.OBJ 
MANUAL.DN.LST.ADDRES 


MACRO LIBRARY PATHNAME= 
SDSMAC L.R.V YY.DDD 


"ADDRES' 


HH:MM:SS 


- ADDRES 
-ADDRES 


HH:MM:SS 


DAY, MMM DOD, YYYY. 


PAGE 0001 


DAY, MMM DD, YYYY. 


PAGE 0002 


KEKKKKKEKKKKKEKEEKKKKKKEEKEKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKRKKKKRKRKKK 


* TITLE: ADDRES 

* REVISION: MM/DD/YY ORIGINAL 

* ABSTRACT: ADDRES IS CALLED TO RETURN THE RUNTIME ADDRESS 

* OF A DATA ITEM FOR USE BY THE IOCALL SUBROUTINE. 
* 

* CALLING SEQUENCE: | 

* CALL "ADDRES" USING VARIABLE-NAME, VARIABLE-ADDRESS 


* 


KEKKKKEKEKKKKEKKEEEKKKKKEKEKKKKEKKKKKKKKKEKKKKKKKKKKKKRKKKKKKKRKKKKKRKKK 


* 


DEF 
DSEQ 
" ADDRES DATA 
] 
WSP1 BSS 
DEND 
PSEG 
START MOV 
MOV 
CI 


JNE 
MOV 
MOV 
MOV 
RETURN RTWP 
PEND 
END 
NO WARNINGS 


ADDRES 
WSP1,START 


32 


*R13,R0 
*RO+,R1 
R1,4 


RETURN 
*RO+,R2 
*RO,R3 
R2,*R3 


TRANSFER VECTOR 


WORKSPACE 


PICK 


ARG LIST POINTER 


GET ARGLIST BYTE COUNT 


MUST 


ELSE 
R2<- 
R3<- 
MOVE 


BE 2 PARAMETERS 


DO NOTHING 
VARIABLE-NAME ADDR. 
VARIABLE-ADDR PTR. 
IN THE ADDRESS 


RETURN TO CALLER 


Figure 7-4. Assembly Language Module ADDRES 
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HH:MM:SS DAY, MMM DD, YYYY. 


NAMES TABLE PAGE 0001 
SOURCE ACCESS NAME= MANUAL.DN.SRC.IOCALL 
OBJECT ACCESS NAME= MANUAL.DN.OBJ.IOCALL 

LISTING ACCESS NAME= MANUAL.ON.LST.IOCALL 

ERROR ACCESS NAME= 
OPTIONS= 
MACRO LIBRARY PATHNAME= 

IOCALL SDSMAC L.R.V YY.DDD HH:MM:SS DAY, MMM DD, YYYY. 

ISSUE SUPERVISOR CALL PAGE 0002 
0002 IDT ‘IOCALL' 

0003 * 

0004 KIKKKKKKHKKKKIKKKKHKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KK KKK 
0005 * TITLE: IOCALL 

0006 * REVISION: MM/DD/YY 

0007 * ABSTRACT: IOCALL IS CALLED TO ISSUE AN OPERATING SYSTEM 
0008 * SUPERVISOR CALL. 

0009 * 

0010 * CALLING SEQUENCE: 

0011 * CALL "IOCALL'" USING SVC-CONTROL-BLOCK. 

0012 * 

0013 KKK KKK KKK KEK KKK KEI K KKK KKK KEKE KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
0014 * 

0015 DEF IOCALL 

0016 0000 DSEQ 

0017 0000 0004" IOCALL DATA WSP1,START TRANSFER VECTOR 

0002 0000' 

0018 0004 IOCALL BSS 32 WORKSPACE 

0019 0024 DEND 

0020 0000 PSEG 

0021 0000 CO1D START MOV *R13,R0 PICK ARG LIST POINTER 

0022 0002 C070 MOV *RO+,R1 GET ARGLIST BYTE COUNT 

0023 0004 0281 CI R1,2 MUST BE 1 PARAMETER 

0006 0002 

0024 0008 1602 JNE RETURN ELSE DO NOTHING 

0025 OO0A COBO MOV *RO+,R2 R2<- SVC-CALL-BLOCK PTR. 

0026 O00C 2FD2 XOP *R2,15 XOP15-> SVC-CALL-BLOCK 

0027 OOOE 0380 RETURN RTWP RETURN TO CALLER 

0028 0010 PEND 

0029 END 
NO ERRORS, NO WARNINGS 
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Calling Subroutines 





8.1 GENERAL 


The CALL statement is used to call subroutines written in COBOL and other languages provided 
the linkage conventions are compatible. Refer to the COBOL Reference Manual for a detailed 
description of the CALL verb syntax. 


8.2 COBOL SUBROUTINE LIBRARY PACKAGE 


The COBOL Subroutine Library Package provides you with frequently used functions. Table 8-1 
lists the subroutines; Appendix D lists the functions of the routines, calling sequences, descrip- 
tions of each required argument, and error codes generated within the subroutines. 


All data fields used as parameters to the COBOL subroutines MUST be aligned on word bound- 
aries. This can be accomplished by making the parameter an 01-Level data item in the WORKING 
STORAGE section of the program. There are no provisions in either the compiler or the run-time 
package to test for this condition. The increase in program size in the compiler or run-time pack- 
age could cause a space problem in user programs. 
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Name 


C$ADDP 
C$BKSP 
C$BSRT 
C$CARG 
C$CBID 
C$CLOS 
C$CMPR 
C$CVDT 
C$DLTE 
CS$EXCP 
C$GROF 
C$GRPH 
C$LOC 
CS$MAPS 
CS$MFAP 
CSMKEY 


CSOPEN 
CSPARM 
CSRERR 
CS$RPRV 
C$SEPP 


C$SETS 
C$SRCH 
C$SVC 

CS$TMPF 


CSWRIT 


Table 8-1. COBOL Subroutines Library 
Description 


Embed the sign character with the last data character. 
Backspace I/O on sequential file. | 

Sort an array on agiven character string. 
Return USING argument information. 
Bid a COBOL task. 

Close VDT and output file. 

Compare character strings logically. 
Close all VDTs currently open. 

Delete a file. 

Turn off function key accessibility. 

Turn off graphics display option. 

Turn on graphics display option. 

Return address of data argument. 

Map and return synonym value. 

Modify file access privilege. 


Modify a KIF alternate key attribute so that it is nonmodifiable in program 
declaration. 


Open VDT and output file. 

Get parameter from terminal communications area. 
Return last file |/O completion status. 

Read previous I/O on KIF. 


Separate embedded data character and sign character into data character and 
separate trailing sign. 


Define or redefine synonym in terminal communications area. 
Binary search array for specified key value. 
Issue an SVC to operating system. 


Set a temporary file flag that causes the next OPEN .. . OUTPUT statement to 
create atemporary file. 


Write the VDT screen contents to the output file or device. 
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All of these subroutines reside on the library .S$SYSLIB.C$SUBS. Use the LIBRARY or SEARCH 
command to link them with the COBOL program object modules. These routines must be included 
in the task segment of the link control file. A typical link control file, which can link any of the sub- 
routines with COBOL program object modules, is as follows: 


FORMAT IMAGE,REPLACE 
LIBRARY .SS$SYSLIB.CSSUBS 
LIBRARY .SCI990.SSOBJECT 
PROCEDURE RCOBOL 

DUMMY 

INCLUDE .SSSYSLIB.RCBPRC 
TASK CBLTSK 

INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE <COBOL object module> 
END 


8.3 ASSEMBLY LANGUAGE SUBROUTINES 

Assembly language subroutines provide capabilities to the COBOL program not available through 
COBOL syntax. These capabilities include (but are not limited to) gaining access to system SVCs, 
and interfacing a routine to application environment processors and specialized data handling 
routines. To call assembly language routines, use the CALL statement. This statement transfers 


control from one object module to another within the program. 


The CALL statement can be used to call subroutines written in COBOL and other languages 
provided the linkage conventions are compatible. For example, for the statement 


CALL ''PROGA' USING A‘, Ad, A3. 


the COBOL compiler generates an argument list with the following format: 


ARGLST DATA6 byte count of the argument list (twice the number 
of arguments) 
DATA A1 
DATA A2 
DATA A3 


NOTE 
The argument list contains byte addresses. If the subroutine is 


designed to address words, the COBOL programmer must ensure 
that all parameters begin on a word boundary. 
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When the CALL statement is executed, register 0 (RO) is loaded with the address of the argument 
list, register 1 (R1) is loaded with the address of the argument decode routine, and subprogram 
PROGA is entered viaa Branch and Load Workspace Pointer (BLWP) instruction. For example: 


LI RO,ARGLST 
LI R1,DEADDR 
BLWP @PROGA 


The argument decode routine is the assembly language programmer’s way of accessing infor- 


mation about a data item. The BLWP instruction is used to transfer control to the subroutine 
module. Subprogram PROGA must have an entry vector PROGA, defined as follows: 


DEF PROGA 


PROGA DATA WP WORKSPACE FOR PROGA 
DATA START FIRST INSTRUCTION 
WP BSS 32 


START EQU $ 


END 
Note that the subroutine in Figure 8-2 indirectly references register 0 of the calling routine by 
using register 13. This occurs in Line 15. 


To return to the COBOL module, PROGA must execute a Return With Workspace Pointer (RTWP) 
instruction (assuming registers 13, 14, and 15 have not been modified by PROGA). 


Information about each argument in the USING list of a CALL statement is accessible to the 
assembly language program through a COBOL run-time subroutine. This subroutine requires two 
arguments (in RO, R1), as follows: 


e The assembly language subroutine workspace register 0 must be loaded with the 
relative argument number from the USING list for which information is needed. 


e The assembly language subroutine workspace register 1 must be loaded with the 
address of a 10-byte buffer in which to store the descriptive information. 


Figure 8-2 shows an assembly subroutine example called from the COBOL example in Figure 8-1. 


8-4 2270521-9701 


DXCBL L.R.V Y 


SOURCE ACCESS NAME: 
OBJECT ACCESS NAME: 
LISTING ACCESS NAME: 
OPTIONS: 

PRINT WIDTH: 

PAGE SIZE: 

PROGRAM SIZE (LINES): 


DXCBL L.R.V Y 


LINE DEBUG PG/LN A... 


1 IDE 
2 PRO 
3 * 
4 * 
5 * 
6 * 
¢ ENV 
8 CON 
9 SOU 
10 OBJ 
11 | DAT 
12 FIL 
13 WOR 
14 
15 kkk 
16 01 
17 
18 kk kk 
19 01 
20 
21 kkk 
22 01 
23 
24 kkk 
25 01 
26 
ov kkk 
28 01 
29 
30 kkk 
31 01 
32 
33 kkkk 
34 01 
ie 
36 kkkk 
37 01 


Figure 8-1. Example of COBOL Routine Calling Assembler Subroutine (Sheet 1 of 4) 
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Y.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 


MANUAL.PG.SRC.FIG0801 
DUMY 
MANUAL.PG.LST.FIG0801 
M 

80 

55 

1000 


Y.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 


NTIFICATION DIVISION. 

GRAM-ID. COBOLARG. 
THIS EXAMPLE SHOWS SUBROUTINE LINKAGE USING 
THE CALL VERB. IT ALSO DEMONSTRATES A 
TECHNIQUE OF OBTAINING INFORMATION ABOUT 
THE "USING" ARGUMENTS BEING PASSED. 

IRONMENT DIVISION. 

FIGURATION SECTION. 

RCE-COMPUTER. TI-990. 

ECT-COMPUTER. TI-990. 

A DIVISION. 

E SECTION. 

KING-STORAGE SECTION. 


ALPHANUMERIC 

ANS PIC X(€20) VALUE "CORRECT RESULT: 330". 
ALPHABETIC 

ABS PIC AC20) VALUE ''COMPUTED RESULT:"'. 


DISPLAY SIGNED LEADING 
NL PIC S$9(6) SIGN LEADING VALUE +45. 


DISPLAY SIGNED LEADING SEPARATE 
NLS PIC S9(6) SIGN LEADING SEPARATE VALUE 


DISPLAY SIGNED TRAILING 
NT PIC S$9(6) SIGN TRAILING VALUE 50. 


NUMERIC DISPLAY SIGNED (TRAILING SEPARATE) 
NSS PIC S9(6) VALUE 30. 


NUMERIC DISPLAY UNSIGNED 
NSU PIC 9(6) VALUE 25. 


COMPUTATIONAL UNSIGNED 
NCU PIC 9¢€5) COMP VALUE 15. 
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38 

39 xxk* = COMPUTATIONAL SIGNED 

40 01 NCS PIC S9(5) COMP VALUE 20. 

41 

42 xxkk BINARY SIGNED OR UNSIGNED (COMPUTATIONAL-1) 
43 01 NBS PIC S9(5) COMP-1 VALUE 5. 

44 

45 xxk*k NUMERIC PACKED DECIMAL (COMPUTATIONAL-3) 

46 01 NPS PIC S9(5) COMP-3 VALUE +10. 

47 

48 kxkk MULTI-WORD BINARY UNSIGNED (COMPUTATIONAL-4) 
49 01 NMB PIC 99 COMP-4 VALUE 35. 

50 

51 xkx*kk MULTI-WORD BINARY SIGNED (COMPUTATIONAL-4) 
52 01 NMS PIC S9(4) COMP-4 VALUE 40. 

53 

54 xxee NUMERIC EDITED 

55 01 NSE PIC 229. 

56 

DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 3 


LINE DEBUG PG/LN Bez 


57 «kkk ALPHANUMERIC EDITED 
58 01 ANSE PIC XX/XX/XX. 

59 

60 «kx GROUP 

61 01 GRP. 

62 02 YR. PIC XX. 

63 02 MO. PIC XX. 

64 02 DA PIC XX. 

65 

66 01  DATA-LENGTH PIC 9(5). 

67 01  DIGIT-LENGTH PIC 9(5). 

68 01 ACTION PIC X. 

69 01 SUB PIC 99 COMP-1. 

70 01 ROW PIC 99. 

71 

72 * BUFFER AREA IN WHICH ARGUMENT INFORMATION IS PLACED 
73 * BY THE ASSEMBLER SUBROUTINE. 

74 

75. 01 ARG-TABLE. 

76 02 ARG-ENTRY OCCURS 18. 

77 03 ARG-CODE PIC 9 COMP. 

78 03 ARG-SCALE PIC 9 COMP. 

79 03 ARG-DATA-LENGTH PIC $9(5) COMP-1. 
80 03 ARG-DIGIT-LENGTH PIC $9(5) COMP-1. 
81 03 ARG-DATA-ADDRESS PIC $9(5) COMP-1. 
82 03 ARG-PIC-ADDRESS PIC $9(5) COMP-1. 
83 

84 PROCEDURE DIVISION. 


Figure 8-1. Example of COBOL Routine Calling Assembler Subroutine (Sheet 2 of 4) 
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DXCBL 
ADDRE 


>002A 
>003E 
>0052 
>0058 
>0060 
>0066 
>006E 
>0074 
>007A 
>0080 
>0082 
>0086 


>0088 


Calling Subroutines 


>0000 MAIN-PROG. | 
>0000 MOVE SPACES TO ARG-TABLE. 
>0004 CALL '"DECODE'' USING ARG-TABLE ANS ABS NL NLS 
NT NSS NSU NCU NCS NBS NPS NMB NMS 
NSE GRP ''123456" +55 SPACE. 
>0006 DISPLAY ''DATA DIGIT" LINE 1 ERASE. 
>000E DISPLAY "LENGTH LENGTH". 
>0012 PERFORM DISP-ARG VARYING SUB FROM 1 BY 1 
UNTIL SUB > 18. 
>0026 ACCEPT ACTION LINE 24 PROMPT. 
>002E STOP RUN. 
>0030 DISP-ARG. 
>0030 COMPUTE ROW = SUB + 3. 
>0036 MOVE ARG-DATA-LENGTH (SUB) TO DATA-LENGTH. 
>0040 DISPLAY DATA-LENGTH LINE ROW. 
>0046 MOVE ARG-DIGIT-LENGTH (SUB) TO DIGIT-LENGTH. 
>0050 DISPLAY DIGIT-LENGTH LINE ROW POSITION 10. 
>005A END-DISP. EXIT. 
ZZZZZZ END PROGRAM. xxx END OF FILE 
L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 4 
SS SIZE DEBUG ORDER TYPE NAME 
20 ANS 0 ALPHANUMERIC ANS 
20 ABS 0 ALPHABETIC ABS 
6 NL 0 NUM LEAD SIGNED NL 
7 NLS 0 NUM SEP LEAD SIGNED’ NLS 
6 NT 0 NUM TRAIL SIGNED NT 
7 NSS 0 NUMERIC SIGNED NSS 
6 NSU 0 NUMERIC UNSIGNED NSU 
5 NCU 0 COMP UNSIGNED NCU 
6 NCS 0 COMP SIGNED NCS 
2 NBS 0 BINARY SIGNED NBS 
3 NPS 0 PACKED SIGNED NPS 
1 NMB 0 MULTI BINARY NMB 
2 NMS 0 MULTI BINARY SIGNED NMS 
Figure 8-1. Example of COBOL Routine Calling Assembler Subroutine (Sheet 3 of 4) 
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>008A 3 NSE 0 NUMERIC EDITED NSE 

>008E 8 ANSE 0 ALPHANUMERIC EDITED ANSE 

>0096 6 GRP 0 GROUP GRP 

>0096 2 ANS 0 ALPHANUMERIC YR 

>0098 2 ANS 0 ALPHANUMERIC MO 

>O09A 2 ANS 0 ALPHANUMERIC DA 

>009C 5 NSU 0 NUMERIC UNSIGNED DATA-LENGTH 

>00A2 5 NSU 0 NUMERIC UNSIGNED DIGIT-LENGTH 
>00A8 1 ANS 0 ALPHANUMERIC ACTION 

>OOAA fa NBS 0 BINARY SIGNED SUB 

>OOAC 2 NSU 0 NUMERIC UNSIGNED ROW 

>O0OAE 180 GRP 0 GROUP ARG-TABLE 

>OOAE 10 GRP 1 GROUP ARG-ENTRY 

>OOAE 1 NCU 1 COMP UNSIGNED ARG-CODE 

>OOAF 1 NCU 1 COMP UNSIGNED ARG-SCALE 

>00B0 2 NBS 1 BINARY SIGNED ARG-DATA-LENGTH 
>00B2 2 NBS 1 BINARY SIGNED ARG-DIGIT-LENGTH 
>00B4 2 NBS 1 BINARY SIGNED ARG-DATA-ADDRESS 
>00B6 2 NBS 1 BINARY SIGNED ARG-PIC-ADDRESS 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 5 
ADDRESS SIZE DEBUG ORDER TYPE NAME 

READ ONLY BYTE SIZE = >019C 
READ/WRITE BYTE SIZE = >018E 


OVERLAY SEGMENT BYTE SIZE = >0000 


TOTAL BYTE SIZE = >032A 
0 ERRORS 
0 WARNINGS 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 6 


PROGRAM USING COUNT 


DECODE 19 


Figure 8-1. Example of COBOL Routine Calling Assembler Subroutine (Sheet 4 of 4) 
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SDSMAC L.R.V YY.DDD 


Calling Subroutines 


HH:MM:SS FRIDAY, NOV 07, 1980. 


ACCESS NAMES TABLE PAGE 0001 
SOURCE ACCESS NAME= MANUAL.PG.SRC.FIGO802 
OBJECT ACCESS NAME= DUMY 
LISTING ACCESS NAME= MANUAL.PG.LST.FIG0802 
ERROR ACCESS NAME= 
OPTIONS= 
MACRO LIBRARY PATHNAME= 
DECODE SDSMAC L.R.V YY.DDD HH:MM:SS FRIDAY, NOV 07 1980. 
PAGE 0002 
0001 IDT 'DECODE' 
0002 * TITLE: DECODE 
0003 * ABSTRACT: OBTAIN COBOL "'USING'' ARGUMENT INFORMATION AND 
0004 * RETURN INFO TO CALLER 
0005 * CALLING SEQUENCE: 
0006 * <RO>::ADDRESS OF ARGUMENT LIST 
0007 * WORD 0: LENGTH OF ARG LIST IN BYTES 
0008 * WORD 1-N: ARGUMENT ADDRESS 
0009 * <R1L::ADDRESS OF ARG DECODE ROUTINE 
0010 * CALL TO 'DECODE' IS MADE VIA 'BLWP' INSTRUCTION 
0011 DEF DECODE 
0012 0000 0004' DECODE DATA WS,ARGO0O00 
0002 0024' 
0013 0004 WS BSS 32 
0014 0024' ARGOOO EQU $ 
0015 0024 C09D MOV *R13,R2 GET ADDR ARG LIST 
0016 0026 COF2 MOV *R2+,R3 GET NUMBER OF ARGUMENTS 
0017 0028 0913 SRL R3,1 CONVERT TO WORDS 
0018 002A 0206 LI R6,1 INITIALIZE TO FIRST ARG 
002C 0001 
0019 O002E C072 MOV *R2+,R1 GET ARG TABLE ADDRESS 
0020 0030 0204 LI R4,10 LENGTH OF DOPE ENTRY 
0032 OQOOA 
0021 0034 C16D MOV 2(R13),R5 ARG DECODE ROUTINE 
0036 0002 
0022 0038' ARGO10 EQU $ 
0023 0038 C006 MOV R6,RO0 SET ARG NUMBER 
0024 003A 0415 BLWP *R5 MAKE CALL 
0025 003C 1605 JNE ARGO20 IF ERROR 
0026 003E 0603 DEC R3 SET UP FOR NEXT ARG 
0027 0040 1203 JLE ARGO20 NO MORE ARG 
0028 0042 A044 A R4,R1 INCR BY ARG ENTRY LENGTH 
0029 0044 0586 INS R6 INCR ARG COUNT 
0030 0046 10F8 JMP ARGO10 
0031 0048 0380 ARGO20 RTWP 
0032 END 
NO ERRORS, NO WARNINGS 


Figure 8-2. Example of Assembler Subroutine Called by COBOL 
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Refer to Appendix D for details on the routine, CS6CARG. This routine is supplied with the COBOL 
Subroutine Library Package, which returns descriptive information for any given argument. 


The COBOL calling module must provide the following 10-byte buffer. 


01 DATA-BLOCK. 
02 DATA-CODE 
02 DATA-SCALE 
02 DATA-LENGTH 


PIC 99 COMP. 
PIC 99 COMP. 
PIC S9(5) COMP-1. 


02 DATA-DIGIT-LENGTH PIC S9(5) COMP-1. 
02 DATA-ADDR PIC S9(5) COMP-1. 
02 DATA-PIC-ADDR PIC $9(5) COMP-1. 


DATA-CODE is the section type containing the argument declaration. 


Bits 0-2 contain one of the following: 


Bits Description 
110 Overlay segment literal 
100 Literal 

010 Linkage 

001 File or working storage 


Bits 3-7 contain the format code, as shown in Table 8-2: 


Table 8-2. Format Codes for Calling Module 
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Debug 

Bits 3-7 Type Name Description 
0000X NSE Numeric String Edited (X = 1 if BLANK WHEN ZERO) 
00010 FIG Figurative Constant 
0010X ABS Alphabetic String (X = 1 if JUSTIFIED RIGHT) 
01000 ANSE Alphanumeric String Edited 
0101X ANS Alphanumeric String (X = 1 if JUSTIFIED) 
01100 GRP Group (fixed size) 
01101 GRP Group (variable size) 
10000 NSU Numeric String Unsigned 
10010 NSS Numeric String Separate Trailing Signed Character 
10011 NLS Numeric String Separate Leading Signed Character 
10100 NCU Numeric Computational Unsigned 
10110 NCS Numeric Computational Separate Trailing Sign Character 
10111 NT Numeric String Trailing Signed Character 
11010 NPS Numeric Packed Signed 
11011 NL Numeric String Leading Signed Character 
11000 NX Index Data Item 
11100 NUMERIC Compiler Generated TEMP 
11101 NMB Multiword Binary (COMP-4) 
11110 NBS Numeric Binary Signed (COMP-1) 
11111 NMS Multiword Binary Signed (COMP.-4) 
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DATA-SCALE contains the data scaling factor needed to express the data item as an integer times 
a power of 10; to express 1.2340 as an integer requires ascale of —3(that is, 1234 x 107%). 


DATA-LENGTH contains the actual data item storage size. COMP data length is the number of 
specified digits in the picture clause plus the sign, if present. For example, 


$9(3) COMP has alength of 4. 
9(2) COMP has a length of 2. 


COMP-.-1 data length is always 2. For example, 


$9(3) COMP-1 has alength of 2. 
9(5) COMP-1 has a length of 2. 


DISPLAY with SIGN LEADING or SIGN TRAILING or no “S” in the picture clause; data length is the 
number of specified digits in the picture clause. For example, 


$9(3) SIGN TRAILING has alength of 3. 
$9(3) SIGN LEADING has a length of 3. 
9(3) has alength of 3. 


DISPLAY with SIGN SEPARATE clause or with no SIGN clause; data length is the number of speci- 
fied digits in the picture clause plus the sign. For example, 


$9(3) SIGN SEPARATE has a length of 4. 
$9(5) SIGN TRAILING SEPARATE has a length of 6. 
$9(3) has alength of 4. 


COMP-:3 data length is the number of specified digits in the picture clause, forced upward to be 
odd, plus 1, divided by 2. For example, 


$9(3) COMP-3 has a length of 2. 
$9(4) COMP-3 has alength of 3. 


COMP-4 data length is the number of specified digits in the picture clause, as follows: 


1-2 digits yield data length of 1 byte. 

3-4 digits yield data length of 2 bytes. 

5-9 digits yield data length of 4 bytes. 
10-18 digits yield data length of 8 bytes. 


For example, 


) COMP-4 has alength of 1. 
) COMP-4 has a length of 2. 
) COMP-4 has a length of 4. 
5 


2 
4 
5 
15) COMP-4 has a length of 8. 


SO 
SO 
SO 
SO 
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DATA-DIGIT-LENGTH contains the number of digit positions specified in the picture clause. 
COMP-:3 is forced odd. For example, 


$9(3) COMP has a value of 3. 

9(3) COMP has a value of 3. 
$9(3) COMP-1 has a value of 3. 

9(5) COMP-1 has a value of 5. 
$9(3) has a value of 3. 
$9(3) SIGN LEADING has a value of 3. 
9(3) has a value of 3. 

) SIGN SEPARATE has a value of 3. 


(3 

(5) 
$9(3) COMP-3 has a value of 3. 
$9(4) COMP-3 has a value of 5. 


SIGN TRAILING SEPARATE has a value of 5. 


DATA-ADDR contains the address of the data item. DATA-PIC-ADDR contains the address of the 
data picture for the editing data types NSE and ANSE. 
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Interfacing to Productivity Tools 





9.1 GENERAL 


The following productivity tools can interface with COBOL modules: 


e TIFORM 
e Sort/Merge 


e Database Management System (DBMS) 
° Query 


e Communications 


9.2 TIFORM 


TIFORM is a software utility package for controlling the interactive interface to an application. 
TIFORM provides convenient control of complex screen formats for COBOL applications. TIFORM 
includes an interactive screen drawing capability and a screen description language compiler. 
Through the use of these tools, TIFORM isolates the description of the screen format from the 


procedural code of the application. This allows applications to become independent of the ter- 
minal. TIFORM also includes: 


All available VDT features (blink, dim, high-intensity, no display) 


° Character and field level editing 


Significant improvement in the time required to develop interactive applications 


The entry points provided for COBOL access to the TIFORM applications interface routines 


(Table 9-1) are all of the form CF$xxx or CX$xxx, where xxx denotes a unique TIFORM function. 
Refer to the T/FORM Reference Manual for a detailed explanation of these calls. 


2270521-9701 9-4 


Interfacing to Productivity Tools 


Table 9-1. COBOL Entry Points to the Applications Interface Routines 


Calls Meaning 
CX$AEK Arm Event Keys 
CX$CF Close Form 
CX$CN Control Functions 
CX$DAK Disarm Event Keys 
CX$OF Open Form 
CX$PS Prepare Segment 
CX$REA Read a Group 
CX$REX Read, Indexed 
CX$RF Reset Form 
CX$RFX Reset Form Indexed 
CX$RXC Read, Indexed, with Cursor Return 
CX$STS Declare Status Block 
CX$WM Write Message 
CX$WRC Write, Indexed, with Reply, and Cursor Return 
CX$WRI Write a Group 
CX$SWWR Write with Reply 
CX$WX Write, Indexed 
CX$WXR Write, Indexed, with Reply 


Figure 9-1 illustrates how a COBOL module interfaces with TIFORM. Figure 9-2 illustrates the 
TIFORM screen description. The following serves as the link control file for linking the COBOL 
module with the TIFORM module. 


FORMAT IMAGE,REPLACE 
LIBRARY .SSTIFORM.O 

PROC RCOBOL 

DUMMY 

INCLUDE .S$SYSLIB.RCBPRC 
TASK TIFRMTSK 

INCLUDE .S$SYSLIB.RCBTSK 
INCLUDE .S$SYSLIB.RCBMPD 
INCLUDE EX.TIFORM 
INCLUDE (CXSMTASK) 

END 


TIFORM INTERFACE MODULES 


COBOL MODULE 


Figure 9-1. COBOL Module Interfacing With TIFORM (Sheet 1 of 4) 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 1 


SOURCE ACCESS NAME: 
OBJECT ACCESS NAME: 
LISTING ACCESS NAME: 


MANUAL.PG.SRC.FIG0901 
MANUAL.PG.OBJ .FIG0901 
MANUAL.PG.LST.FIG0901 


OPTIONS: M 
PRINT WIDTH: 80 
PAGE SIZE: 55 
PROGRAM SIZE (LINES): 1000 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 2 
LINE DEBUG PG/LN Pid, ccs Besse as Sie ails ee aha acess Siow as) eee wR cas ta Ser alee ee a ee: Mena ore ae eee Ree 
1 IDENTIFICATION DIVISION. 
2 PROGRAM-ID. TIFORM. 
3 * THIS PROGRAM DEMONSTRATES CALLING TECHNIQUE FOR 
4 * INTERFACING TIFORM WITH COBOL. 
5 ENVIRONMENT DIVISION. 
6 CONFIGURATION SECTION. 
4 SOURCE-COMPUTER. TI-990. 
8 OBJECT-COMPUTER. TI-990. 
9 DATA DIVISION. 
10 WORKING-STORAGE SECTION. 
11 
12 01 INPUT-DATA. 
13 03 EMPLOYEE-NO PIC X(6). 
14 03 CLEAR-NAME PIC X(30) VALUE LOW-VALUES. 
15 01 READ-WRITE-DATA. 
16 03 EMPLOYEE-NAME PIC X(30). 
17 03 DONE PIC X VALUE '''N'. 
18 - 01 NUMBER-DATA PIC X(€30) VALUE 
19 ''000000111111222222333333444444", 
20 01 NUMBER-TABLE REDEFINES NUMBER-DATA. 
21 | 03 NUMBER-ENT PIC X(6) OCCURS 5. 
22 01 NAMES-DATA PIC X(50) VALUE 
23 "A. ANTOIN B. BARTOK C. CARTER D. DARWIN E. ERDLE'". 
24 01 NAMES-TABLE REDEFINES NAMES-DATA. 
25 03 NAME-ENT PIC X(10) OCCURS 5. 
26 01 TIFORM-STATUS-BLOCK. 
27 03 FORM-STATUS PIC 99. 
28 03 OPSYS-STATUS PIC XX. 
29 03 FILLER PIC X(36). 
30 01 FORM-NAME PIC X(€6) VALUE ''DEMOFM''. 
31 *SYNONYM "DIRECTRY' IS IMPLIED BY BLANKS. 
32 01 DIRECTORY PIC XX VALUE " ', 
33 *SYNONYM 'ME' IS IMPLIED BY BLANKS. 
34 01 TUBE PIC XX VALUE “8 oo 
35 01 SEG-NAME PIC X€6) VALUE "SEG1 ''. 
36 01 GRP1 PIC X(6) VALUE ''GROUP1''. 
37 | 01 GRP PIC X(€6) VALUE ''GROUPA'. 


Figure 9-1. 
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38 01 X PIC 9. 

39 PROCEDURE DIVISION. 

40 >0000 MAIN-PROGRAM. 

41 xkkkkk DECLARE STATUS BLOCK xx*xx 

42 >0000 CALL ''CX$STS'" USING TIFORM-STATUS-BLOCK. 

43 kkkkk OPEN FORM *xxx«x 

44 >0002 CALL ''CXSOF'' USING FORM-NAME, 

45 DIRECTORY, TUBE. 

46 xkkkke PREPARE SEGMENT *x*x%% 

47 >0004 CALL "'CX$PS'' USING SEG-NAME. 

48 >0008 READ NO. 

49 >0008 MOVE LOW-VALUES TO EMPLOYEE-NO. 

50 kkekkk WRITE WITH REPLY **xx** 

51 >000C CALL "'CXSWWR'' USING GRP1, INPUT-DATA, INPUT-DATA. 

52 >000E MOVE SPACES TO EMPLOYEE-NAME. 

53 >0012 PERFORM FIND-NO VARYING X FROM 71 BY 1 

54 UNTIL X > 5. 

55 kkk WRITE WITH REPLY **x*x*x 

56 >0026 CALL ''CXSWWR'' USING GRP, READ-WRITE-DATA, 

DXCBL L.R.V YY.DD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 3 
LINE DEBUG PG/LN Bicone, Bia ases Genus eteta- ee eee Re eae See ww RS Ea eee eee Se are eave ea waa 

57 READ-WRITE-DATA. 

58 >0028 IF DONE = ''N'' GO READ-NO. 

59 keke CLOSE FORM *x*xxx 

60 >0030 CALL '"'CX$CF"'. 

61 >0034 THATS-ALL. 

62 >0034 STOP RUN. 

63 >0036 FIND-NO. 

64 >0036 IF EMPLOYEE-NO = NUMBER-ENT(X) 

65 MOVE NAME-ENT(X) TO EMPLOYEE-NAME, 

66 MOVE 6 TO X; 

67 ELSE IF X = 5 MOVE "INVALID NUMBER" TO 

68 EMPLOYEE-NAME. 

69 ZZZZZZ END PROGRAM. xxx END OF FILE 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 4 
ADDRESS SIZE DEBUG ORDER TYPE NAME 

>002A 36 GRP 0 GROUP INPUT-DATA 

>002A 6 ANS 0 ALPHANUMERIC EMPLOYEE-NO 

>0030 30 ANS 0 ALPHANUMERIC CLEAR-NAME 

>004E 31 GRP 0 GROUP READ-WRITE-DATA 

>004E 30 ANS 0 ALPHANUMERIC EMPLOYEE-NAME 

>006C 1 ANS 0 ALPHANUMERIC DONE 

Figure 9-1. COBOL Module Interfacing With TIFORM (Sheet 3 of 4) 
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>006E 30 ANS 0 ALPHANUMERIC NUMBER-DATA 
>006E 30 GRP 0 GROUP NUMBER-TABLE 
>006E 6 ANS 4 ALPHANUMERIC NUMBER-ENT 
>008C 50 ANS 0 ALPHANUMERIC NAMES-DATA 
>008C 50 GRP 0 GROUP NAMES-TABLE 
>008C 10 ANS 1 ALPHANUMERIC NAME-ENT 
>00BE 40 GRP 0 GROUP TIFORM-STATUS-BLOCK 
>00BE 2 NSU 0 NUMERIC UNSIGNED FORM-STATUS 
>00C0 2 ANS 0 ALPHANUMERIC OPSYS-STATUS 
>00E6 6 ANS 0 ALPHANUMERIC FORM-NAME 
>O0EC 2 ANS 0 ALPHANUMERIC DIRECTORY 
- >00EE 2 ANS 0 ALPHANUMERIC TUBE 
>00FO 6 ANS 0 ALPHANUMERIC SEG-NAME 
>00F6 6 ANS 0 ALPHANUMERIC GRP1 
>OOFC 6 ANS 0 ALPHANUMERIC GRP 
>0102 1 NSU 0 NUMERIC UNSIGNED X 
READ ONLY BYTE SIZE = >0154 
READ/WRITE BYTE SIZE = >0112 
OVERLAY SEGMENT BYTE SIZE = >0000 
TOTAL BYTE SIZE = >0266 
0 ERRORS 
0 WARNINGS 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS  OPT=M PAGE 5 
PROGRAM USING COUNT 
CX$CF 0 
CX$OF 3 
CS$PS 1 
CX$STS 1 
CXSWWR 3 


Figure 9-1. COBOL Module Interfacing With TIFORM (Sheet 4 of 4) 
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SEGMENT MASK MSK1,CLEAR=Y. 


DISPLAY GR=Y. 
M(01,01) 
"BLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL' 


M(01,73) 'LLLLLLLC'. 

M(02,01) ‘I'. 

DISPLAY GR=N. 

M(02,23) 'DEMONS TRATION'. 

M(02,52) 'F ORM’. 

DISPLAY GR=Y. 

M(02,80) ‘'I'. 

M(03,01) 'I'. 

M(03,80) ‘'I'. 

M(04,01) 'I'. 

M(04,80) ‘'I'. 

DISPLAY GREN. 

M(04,03) ‘Employee No.:'. 

M(04,25) "Employee Name:'. 

M(04,72) 'Done?'' °. 

DISPLAY GR=Y 

M(05,01) 
"OLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL' 


M(05,73) 'LLLLLLLE'. 


END SEGMENT MASK MSK1. 
SEGMENT SEG1, (DEMOFM) ,MSK1. 


FIELD NUMBER. 
POSITION (4,17)L6. 
MIN LEN=6. 
CHAR LIST=DIGITS. 


Figure 9-2. TIFORM VDT Screen Description (Sheet 1 of 2) 
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END FIELD NUMBER. 
FIELD NAME. 
POSITION (4,40)L30. 
OUTPUT. 
END FIELD NAME. 
FIELD YESNOF. 
POSITION (4,78)L1. 
REQ. 
CHAR LIST=YESNO. 
END FIELD YESNOF. 
LIST CHAR DIGITS=0..9. 
LIST CHAR YESNO='Y','N'. 
GROUP GROUPA=NAME,YESNOF. 


GROUP GROUP1=NUMBER,NAME. 
END SEGMENT SEG1. 


Figure 9-2. TIFORM VDT Screen Description (Sheet 2 of 2) 


9.3 SORT/MERGE 
A comprehensive Sort/Merge package is supported. SC] commands provide access to the 


Sort/Merge package in batch or interactive mode. Both Sort and Merge support the following 
features: 


° Record selection 

e Reformatting on input 

e Summarizing on output 
Ascending key order, descending key order, or an alternate collating sequence may be specified. 
Any number of keys can be specified as long as the total is less than 256 characters. The merge 
process supports up to five input files. The sort process allows the following: 

e Key sort (tag-along) 

e Summary sort (Summary tag-along) 

e Address only sort 
Figure 9-3 is a COBOL routine that calls Sort/Merge and passes records read by COBOL to Sort/ 


Merge. The sorted records are output to a disk file. 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 
SOURCE ACCESS NAME: MANUAL.PG.SRC.FIG0903 
OBJECT ACCESS NAME: DUMY 
LISTING ACCESS NAME: MANUAL.PG.LST.FIG0903 
OPTIONS: M 
PRINT WIDTH: 80 
PAGE SIZE: 55 


PROGRAM SIZE (LINES): 1000 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 


LINE DEBUG PG/LN Pigs Bere anata wba sd Gite Geek. oi Sieg rane eee Betas oreo ere evene Serena ees: See ee 


1 IDENTIFICATION DIVISION. 

2 PROGRAM-ID. CPNP. 

3 *THIS IS A SORT/MERGE INFORMATION QUEUE TEST. IT 
4 *TESTS THE CASE WHERE INPUT IS DIRECTED BY THE 

5 *COBOL PROGRAM (@PROC@) AND OUTPUT IS DIRECTLY 

6 *FROM THE SORT/MERGE TO A FILE (NO @PROCQ). 

7 AUTHOR. TEXAS INSTRUMENTS FDOT. 

8 DATE-WRITTEN. 11-6-76. 

9 ENVIRONMENT DIVISION. 


10 CONFIGURATION SECTION. 

11 SOURCE-COMPUTER. TI-990. 

12 OBJECT-COMPUTER. TI-990. 

13 INPUT-OUTPUT SECTION. 

14 FILE-CONTROL. 

15 SELECT INFILNAME ASSIGN TO INPUT "INFILE'; 
16 ACCESS MODE IS SEQUENTIAL. 

17 DATA DIVISION. 

18 FILE SECTION. 

19 FD INFILNAME 

20 DATA RECORD IS INFILRCRD 

21 LABEL RECORDS ARE STANDARD 

22 RECORD CONTAINS 80 CHARACTERS 

23 BLOCK CONTAINS 10 RECORDS. 

24 01 INFILRCRD PIC X(80). 

25 WORKING-STORAGE SECTION. 

26 (¢? MAX-NO-RECS PIC 9(5) VALUE IS 10 

ra USAGE IS COMP-1. 
28 (7 STATIS PIC 9(5) USAGE IS COMP-1. 
29 (7 QUTSTAT PIC 9(5). 

30 (7? RECORD-LENGTH PIC 9(5) VALUE IS 80 

31 USAGE IS COMP-1. 
32 77 RECORD-AREA-LENGTH PIC 9(5) USAGE IS COMP-1. 
33 (7 RETES-RECEIVED PIC 9(5) USAGE IS COMP-1. 
34 (7 OFILRCRD PIC X(80). 


Figure 9-3. COBOL Routine Calling Sort/Merge (Sheet 1 of 7) 
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PIC 9(5) VALUE IS ZERO 


USAGE IS COMP-1. 


*SORT-CONTROL-BLOCK CONTAINS THE SORT/MERGE 


*CONTROL SPECIFICATIONS. 


01 SORT-CONTROL-BLOCK. 


03 HEADER. 
05 SEQ PIC X(5) 
0S FILLER PIC A 


05 SORT-TYPE PIC A(6) 
05 MAX-TOT-CONTL-LEN PIC 
05 ASCND-DSCND PIC A 

05 FILLER PIC X(7) 
05 COLLATNG-SEQ PIC X 

O05 PRINT-OPTION PIC X 

05 OUTPUT-OPTION PIC X 


VALUE IS '"'00000''. 
VALUE IS "HH". 
VALUE IS "SORTR". 
9(5) VALUE IS 6. 
VALUE IS "A". 
VALUE IS SPACES. 
VALUE IS SPACE. 
VALUE IS "4". 
VALUE IS SPACE. 


05 OUTPUT-REC-LEN PIC X(4) VALUE IS ''0080''. 


05 VERIFY-OPTN PIC XX 
05 WRK-SPACE PIC X(5) 
05 FILLER PIC X(5) 


*OUTPUT IS DIRECTLY FROM THE SORT 


03 OUT-FILE-SPEC. 
05 SEQ PIC X(5) 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM: 
DEBUG PG/LN 


VALUE IS SPACE. 
VALUE IS ''08000"'. 
VALUE IS SPACES. 
TO A FILE. 


VALUE IS "00001''. 


05 FILLER PIC A 
05 FILE-USE PIC A 
05 FILE-TYPE PIC A 


05 PATHNAME PIC 
03 CNT-OUT-FILE-SPEC. 
05 SEQ PIC X(5) 
05 FILLER PIC A 
05 FILE-USE PIC A 
05 LOG-REC-SIZ PIC 9(4) 
O05 PHY-REC-SIZ PIC 9(4) 


O05 NUM-PHY-REC PIC X(8) 

05 FILLER PIC X(21) 
03 WRK-FILE-SPEC. 

05 SEQ PIC X(5) 

05 FILLER PIC A 


05 FILE-USE PIC A 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 


IS oe Die 
IS sik @ Lie 
IS tigre 
VALUE IS ''.OCPNP". 


Is "00002". 
IS al Dae 
IS se ke 
Is 80. 
Is 800. 
IS SPACES. 
IS SPACES. 


Is ''00003"'. 
IS oper F 
reyyee ” 


05 EXPAND-ALLOC-FLG PIC X VALUE IS "E". 


05 VOLUME PIC X(8) 


05 FILLER 


VALUE 


IS "DSO1"'. 


PIC X(28) VALUE IS SPACES. 
*INPUT IS DIRECTED BY THE COBOL PROGRAM. 


Figure 9-3. COBOL Routine Calling Sort/Merge (Sheet 2 of 7) 
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77 03 INPT-FILE-DESCRPT. 
78 05 SEQ PIC X(5) VALUE IS ''00004"'. 
79 05 FILLER PIC A VALUE IS "'D''. 
80 05 FILE-USE PIC A VALUE IS "'I''. 
81 OS FILE-TYPE PIC A VALUE IS "S'', 
82 0S PATHNAME PIC X(36) VALUE IS "@PROCA". 
83 03 INPT-FILE-CONTIN. 
84 05 SEQ PIC X(5) VALUE IS ''00008"'. 
85 05 FILLER PIC A VALUE IS 'D". 
86 05 FILE-USE PIC A VALUE IS "'A'. 
87 0S LOG-SIZE PIC X(€4) VALUE IS ''0080"'. 
88 0S FILLER PIC X€4) VALUE IS SPACES. 
89 OS NUM-SRT-RECS PIC X(8) VALUE IS ''00000401'"'. 
90 OS FILLER PIC X(21) VALUE IS SPACES. 
91 03 REFORMAT-DESCRIPTION-O. 
92 05 SEQ PIC X(5) VALUE IS ''00010"'. 
93 0S FILLER PIC A VALUE IS "F"', 
94 0S FIELD-TYPE-CMMT PIC X VALUE IS "N''. 
95 OS CHARACTR-USE PIC A VALUE IS "C"'" 
96 05 FIELD-LOC. 
97 07 BEG-RECRD-POS PIC X(4) VALUE IS "0032". 
98 07 END-RECRD-POS PIC X(4) VALUE IS "0037". 
99 0S CONDTN-FORCD-CHAR PIC X _ VALUE IS SPACE. 
100 05 FORCD-CHAR PIC X VALUE IS SPACE. 
101 OS CONTIN-LIN PIC X VALUE IS SPACE. 
102 05 OUFLW-FLD-LEN PIC X(3) VALUE IS SPACES. 
103 0S FILLER PIC X(22) VALUE IS SPACES. 
104 03 REFORMAT-DESCRIPTION. 
105 05 SEQ PIC X(5) VALUE IS "00014". 
106 05 FILLER PIC A VALUE IS "FI", 
107 05 FIELD-TYPE-CMMT PIC X VALUE IS '"'D!'. 
108 05 CHARACTR-USE PIC A VALUE IS ''C".” 
109 0S FIELD-LOC. 
110 07 BEG-RECRD-POS PIC X(4) VALUE IS "0001"'. 
111 07 END-RECRD-POS PIC X(4) VALUE IS ''0031'"'. 
112 05 CONDTN-FORCD-CHAR PIC X_ VALUE IS ''C"" 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 4 
LING ‘DEBUG PG/IN: ~ActaBiccn totus Mlveieteen tet eieteded eat eieeetbewdeerees sak 
113 05 FORCD-CHAR PIC X VALUE IS SPACE. 
114 OS CONTIN-LIN PIC X VALUE IS SPACE. 
115 0S OUFLW-FLD-LEN PIC X(3) VALUE IS SPACES. 
116 05 FILLER PIC X€22) VALUE IS SPACES. 
117 03 REFORMAT-DESCRIPTION-3. 
118 05 SEQ PIC X(5) VALUE IS ''00016''. 
119 05 FILLER PIC A VALUE IS "F''. 
120 OS FIELD-TYPE-CMMT PIC X VALUE IS "D"'. 
121 05 CHARACTR-USE PIC A VALUE IS "'C"." 
122 05 FIELD-LOC. 
Figure 9-3. COBOL Routine Calling Sort/Merge (Sheet 3 of 7) 
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123 
124 
125 
126 
127 
128 
129 


>0000 


>0000 


>0002 


>O000A 
>0012 
>0012 
>001A 


>001C 
>0024 


>0026 


>0026 
>0028 


>0030 
>0038 
>0038 
>003A 


>0042 


>0044 
>0044 
>0048 
>004C 
>0050 
>0052 
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07 BEG-RECRD-POS PIC X(4) VALUE 
07 END-RECRD-POS PIC X(€4) VALUE 


05 CONDTN-FORCD-CHAR PIC X VALUE 
05 FORCD-CHAR PIC X VALUE IS 
O05 CONTIN-LIN' PIC X VALUE IS 
05 OUFLW-FLD-LEN PIC X(3) VALUE IS 
05 FILLER PIC X(€22) VALUE IS 
03 ENDKRD PIC X(44) VALUE IS 


PROCEDURE DIVISION. 


MAIN-PROGRAM. 
*INITIALIZE SORT/MERGE. 
CALL "SRTINT'' USING SORT-CONTROL-BLOCK 
MAX-NO-RECS, STATIS. 
IF STATIS NOT EQUAL ZERO GO TO E 


+ 


START THE INPUT SECTION. 
OPEN INPUT INFILNAME. 

NEXREC. 
READ INFILNAME AT END GO TO BEGWRT. 
CALL "SENREC'" USING INFILRCRD, 

RECORD-LENGTH, STATIS. 

IF STATIS NOT EQUAL ZERO GO TO ERRSEN. 
GO TO NEXREC. 


* 


START THE OUTPUT SECTION. 
BEGWRT. 


* 


BEGIN SORT PHASE. SENDING A RECORD LENGTH 
INDICATES THAT THE LAST RECORD HAS BEEN S 
CALL "SENREC'' USING INFILRCRD, ALLDONE 
IF STATIS NOT EQUAL ZERO GO TO ERRSEN. 


+ 


CLOSE INFILNAME. 
CHKSORT. | 
CALL "'SMSTAT' USING STATIS. 
IF STATIS NOT EQUAL ZERO GO TO ERRWRT. 
* SORT IS DONE. 
GO TO END-IT. 


ERRSTRT. 
DISPLAY '' ERROR IN STRINT CALL.". 
MOVE STATIS TO OUTSTAT. 
DISPLAY OUTSTAT. 
GO TO END-IT. 
ERRSEN. 


IS "0038". 
IS "0080". 
IS SPACE. 
SPACE. 
SPACE. 
SPACES. 


SPACES. 
WO ght 


COBOL EXAMPLE 3 


RRSTRT. 
COBOL EXAMPLE 3 


COBOL EXAMPLE 3 


COBOL EXAMPLE 3 
OF 0 (CALLDONE) 
ENT. 

, STATIS. 


COBOL EXAMPLE 3 


COBOL EXAMPLE 3 


Figure 9-3. COBOL Routine Calling Sort/Merge (Sheet 4 of 7) 
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DXCBL 
LINE 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 


DXCBL 


ADDRE 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 


DEBUG PG/LN 


>0052 
>0056 
>O005A 
>O005E 
>0060 
>0060 
>0064 
>0068 


>006E 
>006E 


ss § 


>0026 


>O007A 


>007C 


>O007E 


>0084 


>0086 


>0088 


>008A 


>OODA 


>00DC 
>O0DC 
>00DC 
>00E2 
>00E8 
>OOED 
>OOFS5 
>O00F6 
>O00F7 
>00F8 
>OOFC 
>OOFE 
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Axe B 


ERRW 


OPT=M 


DISPLAY '' ERROR IN SENREC CALL.". 


MOVE STATIS TO OUTSTAT. 


DISPLAY OUTSTAT. 
GO TO END-IT. 
RT. 


DISPLAY '' ERROR IN SMSTAT.". 


MOVE STATIS TO OUTSTAT. 


DISPLAY OUTSTAT. 


~------------------------------------------ COBOL EXAMPLE 3 


END-I 


Ve 
STOP RUN. 


ZZZZZZ END PROGRAM. 


IZE 


800 
80 


2 


2 


80 


440 


> 
& 


UN FS ee UA UI 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 


DEBUG ORDER TYPE 


ANS 


NBS 


NBS 


NSU 


NBS 


NBS 


NBS 


ANS 


NBS 


GRP 
GRP 
ANS 
ABS 
NSU 
ABS 
ANS 
ANS 
ANS 
ANS 
ANS 
ANS 


co) 


oooooooo°o°o Co oO 


FILE 
ALPHANUMERIC 


BINARY SIGNED 


BINARY SIGNED 


NUMERIC UNSIGNED 


BINARY SIGNED 


BINARY SIGNED 


BINARY SIGNED 


ALPHANUMERIC 


BINARY SIGNED 


GROUP 

GROUP 
ALPHANUMERIC 
ALPHABETIC 
NUMERIC UNSIGNED 
ALPHABETIC 
ALPHANUMERIC 
ALPHANUMERIC 
ALPHANUMERIC 
ALPHANUMERIC 
ALPHANUMERIC 
ALPHANUMERIC 


*x*k*k END OF FILE 


OPT=M PAGE 6 


NAME 


INFILNAME 
INFILRCRD 


MAX-NO-RECS 


STATIS 


OUTSTAT 


RECORD-LENGTH 


RECORD-AREA-LENGTH 


RETES-RECEIVED 


OFILRCRD 


ALLDONE 


SORT-CONTROL-BLOCK 
HEADER 

SEQ 
SORT-TYPE 
MAX-TOT-CONTL-LEN 
ASCND-DSCND 
COLLATNG-SEQ 
PRINT-OPTION 
OUTPUT-OPTION 
OUTPUT-REC-LEN 
VERIFY-OPTN 
WRK-SPACE 


Figure 9-3. COBOL Routine Calling Sort/Merge (Sheet 5 of 7) 
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>0108 
>0108 
>O010E 
>010F 
>0110 
>0134 
>0134 
>013A 
>013B 
>013F 
>0143 
>0160 
>0160 
>0166 
>0167 
>0168 
>018C 
>018C 
>0192 
>0193 
>0194 
>01B8 
>01B8 
>01BE 


DXCBL 


ADDRESS 


>01BF 
>01C7 
>01E4 
>01E4 
>O1EA 
>01EB 
>O01EC 
>O1EC 
>01F0 
>01F4 
>01F5 
>01F6 
>O01F7 
>0210 
>0210 
>0216 
>0217 
>0218 
>0218 
>021C 
>0220 
>0221 
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GRP 0 GROUP OUT-FILE-SPEC 

ANS 0 ALPHANUMERIC SEQ 

ABS 0 ALPHABETIC FILE-USE 

ABS 0 ALPHABETIC FILE-TYPE 

ANS 0 ALPHANUMERIC PATHNAME 

GRP 0 GROUP CNT-OUT-FILE-SPEC 
ANS 0 ALPHANUMERIC SEQ 

ABS 0 ALPHABETIC FILE-USE 

NSU 0 NUMERIC UNSIGNED LOG-REC-SIZ 

NSU 0 NUMERIC UNSIGNED PHY-REC-SIZ 

ANS 0 ALPHANUMERIC NUM-PHY-REC 

GRP 0 GROUP WRK-FILE-SPEC 

ANS 0 ALPHANUMERIC SEQ 

ABS 0 ALPHABETIC FILE-USE 

ANS 0 ALPHANUMERIC EXPAND-ALLOC-FLG 
ANS 0 ALPHANUMERIC VOLUME 

GRP 0 GROUP INPT-FILE-CONTIN 
ANS 0 ALPHANUMERIC SEQ 

ABS’. 0 ALPHABETIC FILE-USE 

ABS 0 ALPHABETIC FILE-TYPE 

ANS 0 ALPHANUMERIC PATHNAME 

GRP 0 GROUP INPT-FILE-CONTIN 
ANS 0 ALPHANUMERIC SEQ 

ABS 0 ALPHABETIC FILE-USE 

L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 4 
DEBUG ORDER TYPE NAME 

ANS 0 ALPHANUMERIC LOG-SIZE 

ANS 0 ALPHANUMERIC NUM-SRT-RECS 

GRP 0 GROUP REFORMAT-~DESCRIPTION-O 
ANS 0 ALPHANUMERIC SEQ 

ANS 0 ALPHANUMERIC FIELD-TYPE-CMMT 
ABS 0 ALPHABETIC CHARACTR-USE 

GRP 0 GROUP FIELD-LOC 

ANS 0 ALPHANUMERIC BEG-RECRD-POS 
ANS 0 ALPHANUMERIC END-RECRD-POS 
ANS 0 ALPHANUMERIC CONDTN-FORCD-CHAR 
ANS 0 ALPHANUMERIC FORCD-CHAR 

ANS 0 ALPHANUMERIC CONTIN-LIN 

ANS 0 ALPHANUMERIC OUFLW-FLD-LEN 

GRP 0 GROUP REFORMAT-DESCRIPTION 
ANS 0 ALPHANUMERIC SEQ 

ANS 0 ALPHANUMERIC FIELD-TYPE-CMMT 
ABS 0 ALPHABETIC CHARACTR-USE 

GRP 0 GROUP FIELD-LOC 

ANS 0 ALPHANUMERIC BEG-RECRD-POS 
ANS 0 ALPHANUMERIC END-RECRD-POS 
ANS 0 ALPHANUMERIC CONDTN-FORCD-CHAR 
ANS 0 ALPHANUMERIC FORCD-CHAR 


Figure 9-3. COBOL Routine Calling Sort/Merge (Sheet 6 of 7) 
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>0222 1 ANS 0 ALPHANUMERIC CONTIN-LIN 
>0223 3 ANS 0 ALPHANUMERIC OUFLW-FLD-LEN 
>023C 44 GRP 0 GROUP REFORMAT-DESCRIPTION-3 
>023C 5 ANS 0 ALPHANUMERIC SEQ 
>0242 1 ANS 0 ALPHANUMERIC FIELD-TYPE-CMMT 
>0243 1 ABS 0 ALPHABETIC CHARACTR-USE 
>0244 8 GRP 0 GROUP FIELD-LOC 
>0244 4 ANS 0 ALPHANUMERIC BEG-RECRD-POS 
>0248 4 ANS 0 ALPHANUMERIC END-RECRD-POS 
>024C 1 ANS 0 ALPHANUMERIC CONDTN-FORCD-CHAR 
>024D 1 ANS 0 ALPHANUMERIC FORCD-CHAR 
>024E 1 ANS 0 ALPHANUMERIC CONTIN-LIN 
>024F 5 ANS 0 ALPHANUMERIC OUFLW-FLD-LEN 
>0268 44 ANS 0 ALPHANUMERIC ENDKRD 

READ ONLY BYTE SIZE = >O15A 

READ/WRITE BYTE SIZE = >O2EE 

OVERLAY SEGMENT BYTE SIZE >0000 

TOTAL BYTE SIZE = >0048 

0 ERRORS 
Q WARNINGS 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 8 


PROGRAM USING COUNT 


Figure 9-3. COBOL Routine Calling Sort/Merge (Sheet 7 of 7) 


SENREC 3 

SMSTAT 1 

SRTINT 3 
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The library SSSMRG.SMLIB contains the required.Sort/Merge interface modules. The modules and 
their functions are as follows: 


Module 


SRTINT 


SENREC 


RCVREC 


SMSTAT 


COBINT 


IPCBUF 


Function 


Performs the initialization of Sort/Merge before records can be 
sent to or received from the Sort/Merge module 


Transmits records from calling module to Sort/Merge 
Transmits records from Sort/Merge to calling module 


Suspends calling tasks until Sort/Merge completes writing records to 
output file 


Contains other modules called by one of the above 


Contains buffer for |PC communication 


Refer to the DX Sort/Merge User’s Guide for a detailed description of these functions, their CALL 
statement syntax, and conditions under which each is required. The following link control file 
shows how to link the COBOL module shown in Figure 9-3. 


FORMAT IMAGE,REPLACE 


PROC RCOBOL 


DUMMY 

INCLUDE 

TASK CPNP 

INCLUDE 

INCLUDE 

INCLUDE EX.CPNP 
INCLUDE .SSSSMRG. 
INCLUDE .SSSSMRG. 
INCLUDE .SSSSMRG. 
INCLUDE .SSS$SMRG. 
INCLUDE .SS$SSMRG. 
END 


-S$S$SYSLIB.RCBPRC 


-SS$SYSLIB.RCBTSK 
.S$$SYSLIB.RCBMPD 


SMLIB.SRTINT 
SMLIB.SENREC 
SMLIB.SMSTAT 
SMLIB.COBINT 
SMLIB.IPCBUF 


9.4 DATABASE MANAGEMENT SYSTEM 


The Database Management System (DBMS-990) is designed for minicomputer database applica- 
tions. DBMS-990 handles data access in a logical format similar to physical documents and 
records in daily business transactions. DBMS-990 allows the user to define and access a central- 
ized, integrated data base without the physical data access requirements imposed by conven- 
tional file management software. Considerations such as access method, record size, blocking, 
and relative field positions are resolved when the database is initially defined. Thus the user can 
concentrate fully on the logical data structure needed for interface. 
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9.4.1 DBMS-990 Features 

Because the data definitions are independent from the application software, the data base can be 
changed without affecting existing programs. DBMS-990 also provides a single, centralized copy 
of the data to be used for all application subsystems. (Conventional file management results in 
fragmented and/or multiple copies of data, one for each application.) A centralized copy results in 
more efficient data storage on disk, uniform processing of data requests, and simplified data base 
maintenance. DBMS-990 optionally includes logging and access control. 


Security is an optional feature of DBMS-990. Its purpose is to eliminate unauthorized use of the 
data base. Password security is provided to control file access. Access authorization is provided 
to define the type of access allowed to the data elements of a file for a particular password and/or 
user. Each file that requires a password also requires access authorization. For detailed infor- 
mation about DBMS-990, refer to the DX10 Data Base Management System Programmer’s Guide. 


9.4.2 DBMS-990 User Interface 

The primary user interface to DBMS-990 consists of the data manipulation language (DML) and the 
data definition language (DDL). DML provides a means to manipulate data base information by 
supporting the reading and/or writing of the information. DBMS-990 data can be accessed by 
embedding the appropriate DML syntax in a COBOL application program module. (Refer to Figure 
9-4). The application program module is used to construct a call to DBMS-990 that specifies the 
function to be performed on the data. The Data Base Manager processes the request and returns 
the results to the COBOL module. DDL allows the user to describe the DBMS-990 data base and 
the associated data elements. The definition source for the DDL logical data base is compiled by 
the DDL compiler; the output is stored on disk with the associated data. (Refer to Figure 9-5). 


9.4.3 Linking DBMS-990 and COBOL Modules 
The library SSDBMS contains the required DBMS-990 interface modules. The following link control 
file may be used to link the COBOL module: 


FORMAT IMAGE,REPLACE 
PROC RCOBOL 


DUMMY 
INCLUDE .S$$SYLIB.RCBPRC 
TASK GENEO 


INCLUDE .S$$SYSLIB.RCBTSK 
INCLUDE .S$$SYSLIB.RCBMPD 
INCLUDE EX.GENEO 

INCLUDE S$S$DBMS.SNDMSG 
INCLUDE S$$DBMS .COBINT 
END 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 1 
SOURCE ACCESS NAME: MANUAL.PG.SRC.FIG0904 


OBJECT ACCESS NAME: DUMY : 
LISTING ACCESS NAME: MANUAL.PG.LST.FIG0904 


OPTIONS: M 
PRINT WIDTH: 80 
PAGE SIZE: 55 


PROGRAM SIZE (LINES): 1000 


Figure 9-4. COBOL Interfacing With DBMS-990 (Sheet 1 of 14) 
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DXCBL 
LINE 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 


DEBUG PG/LN A... 


IDENTIFICATION DIVISION. 


PROGRAM-ID. 


* 
* 
* 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 


GENEALOGY. 
THIS PROGRAM WAS DEVELOPED AS A FUNCTIONAL 
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OPT=M 


DEMONSTRATION TEST FOR TESTING THE DATA BASE 
MANAGEMENT SYSTEM. 


TI-990. 


OBJECT-COMPUTER. TI-990. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 


01 


01 


01 


01 


01 


01 


01 
01 


01 
01 


Figure 9-4. 
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ERR-FLG 
88 ERR 
88 NO-ERR 
PERSONS 
88 PERSON 
88 NO-PERSON 
SPOUSES 
88 SPOUSE 
88 NO-SPOUSE 
CHILDREN 
88 CHILD 
88 NO-CHILD 
ACTIVITY 
88 ACT-ADD 
88 ACT-UPDTE 
88 ACT-DELTE 
88 QUIT 
ACTION 
ANSWER 
PSC-TYPE 
88 PSC-PERSON 
88 PSC-SPOUSE 
88 PSC-CHILD 
88 NO-PSC 
TEMP-NAME 
FUNC-LIST. 
O02 PASSWORD 
O2 FUNCTION 
O02 FILE-STAT 
O02 FILE-NAME 
O02 LOC1 

88 EOL 
02 LOC2 
O02 KEY-NAME 
O02 KEY-VALUE 
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PIC 


99 


=< 


X (20) 


X (4) 
XX 
XX 
X (4) 
X (4) 


X (4) 
X (4) 
X(30). 


VALUE 


0. 


VALUES 1 THRU 99. 


VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


0. 


yet 7 
rine 7 


mye : 
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rye : 
renee i 


mar . 
ropes a 
ip . 
mgr 2 


per s 
gue . 
nice . 
eott . 


NIOFft. 


Wl ye ge Ht 4 


"GENE". 
Ps tS oe 
ede death 
Ps ts oe 


"NAME". 
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47 01 


53 01 


DXCBL 
LINE 


39 01 


65 01 


(7 01 


LINE1-LIST. 

O2 FILLER PIC X(€7) VALUE 
O02 TST-1 PIC X VALUE 
O2 FILLER PIC X(16) VALUE 
O2 FILLER PIC X(16) VALUE 
O02 HR-1 PIC X(€4) VALUE 
LINE2-LIST. 

O2 FILLER PIC’ X(€7) VALUE 
02 TST-2 PIC X VALUE 
O2 FILLER PIC X(16) VALUE 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 
DEBUG PG/LN A... 


O2 FILLER PIC X(4) VALUE 
O02 HR-2 PIC X(€4) VALUE 
LINE3-LIST. 
O2 FILLER PIC X(7) VALUE 
02 TST-3 PIC X VALUE 
O02 FILLER PIC X(16) VALUE 
O2 FILLER PIC X(4) VALUE 
O02 HR-3 PIC X(4) VALUE 
LINE1-DATA. 
O02 PERSON-NAME PIC X(30) VALUE 
O02 PERSON-SEX PIC X VALUE 
O2 DATE-OF-BIRTH. 
03 PERSON-DOB-MO PIC XX 
03 PERSON-DOB-DA PIC XX 
03 PERSON-DOB-YR PIC XX 
O2 PLACE-OF-BIRTH. 
03 PERSON-POB-STATE PIC XXX 
O2 MARITAL-STAT PIC X VALUE 
O2 FATHER PIC X(30) VALUE 
O02 MOTHER PIC X(30) VALUE 
LINE2-DATA. 
02 SPOUSE-NAME PIC X(30). 
O02 SPOUSE-SEX PIC X. 
O02 DATE-OF-BIRTH. 
03 SPOUSE-DOB-MO PIC XX 
03 SPOUSE-DOB-DA PIC XX 
03 SPOUSE-DOB-YR PIC X(4) 
O02 PLACE-OF-BIRTH. 
03 SPOUSE-POB-STATE PIC XXX 


"LINE=01''. 

ty tt r 
"PERSPSEXPDOBPPOB". 
"MARDFATHMOTH***x*'', 
'RLSE'™. 

"LINE=02"'. 

a ve : 
"SPOUSSEXSDOBSPOB". 
OPT=M PAGE 3 
ES 2 2 

"RLSE'. 

"LINE=03''. 

ar tt . 
"CHLDCSEXCDOBCPOB". 
PS 7 

"RLSE'. 

SPACES. 

SPACES. 

VALUE SPACES. 
VALUE SPACES. 
VALUE SPACES. 
VALUE SPACES. 
SPACES. 

SPACES. 

SPACES. 

VALUE SPACES. 
VALUE SPACES. 
VALUE SPACES. 
VALUE SPACES. 
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DEBUG PG/LN A... 


>0000 
>0000 
>0000 
>0008 
>O00E 
>0016 


>0018 


>0032 


>0042 
>0046 


>0048 


>004A 
>004A 
>004A 


>0052 
>005C 
>0062 
>0072 
>0082 
>0092 
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01 LINE3-DATA. 
O02 CHILD-NAME PIC X(30). 
O02 CHILD-SEX PIC X. 
O02 DATE-OF-BIRTH. 
03 CHILD-DOB-MO PIC XX VALUE SPACES. 
03 CHILD-DOB-DA PIC XX VALUE SPACES. 
03 CHILD-DOB-YR PIC X(4) VALUE SPACES. 
O2 PLACE-OF-BIRTH. 
03 CHILD-POB-STATE PIC XXX VALUE SPACES. 
01 DELIM PIC XX VALUE '"'/x'', 
L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 4 


/ 


PROCEDURE DIVISION. 
MAIN SECTION. 
MAIN-PROG. 


ACTIVITY 


DISPLAY "ENTER PASSWORD" LINE 1 ERASE. 

ACCEPT PASSWORD PROMPT. 

DISPLAY '' ' LINE 1 ERASE. 

CALL 'DBMSYS'" USING FUNC-LIST LINE1-LIST 
DELIM DELIM, DELIM DELIM. 

IF FILE-STAT NOT = !'xx" 
ADD 1 TO ERR-FLG 
DISPLAY "OPEN ERR " LINE 12 
FILE-STAT LINE 1 POSITION 18. 

IF NO-ERR 
PERFORM ACTIVITY UNTIL QUIT. 

MOVE ''CL'' TO FUNCTION. 

CALL '"DBMSYS'' USING FUNC-LIST FUNC-LIST 
DELIM DELIM, DELIM DELIM. 

STOP RUN. 


SECTION. 


BEGIN. 


Figure 9-4. 


DISPLAY ''FUNCTION: ADD, UPDTE, 
LINE 1 ERASE. 

ACCEPT ACTIVITY LINE 1 POSITION 45 PROMPT. 

MOVE SPACE TO SPOUSES CHILDREN. 

IF ACT-ADD PERFORM ADD-SEC UNTIL NO-PSC. 

IF ACT-UPDTE PERFORM UPDTE-SEC UNTIL NO-PSC. 

IF ACT-DELTE PERFORM DELTE-SEC UNTIL NO-PSC. 

MOVE 0 TO ERR-FLG PSC-TYPE. 


DELTE, QUIT - A,U,D,Q" 
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127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
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145 
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>009C 
>009C 
>009C 
>00A2 
>O0OAA 


>00B2 
>00BC 
>00C4 


>00D04 


>00E4 


>OOEC 
>QOEC 
>O0EC 
>00F2 
>OOFA 


>0102 
>010C 
>0114 
>001C 
>0124 


DEBUG 
>0128 


>0130 
>0130 
>0130 
>0136 
>O013E 


>0146 
>O14E 
>0156 
>0166 


>0176 
>017A 


ADD-SEC SECTION. 
BEGIN. 
MOVE ''x*xx*" TQ LOC1 LOC2. 
MOVE "RLSE" TO HR-1 HR-2 HR-3. 
DISPLAY ''ADD PERSON, SPOUSE, CHILD - P,S,C" 
LINE 1 ERASE. 
ACCEPT PSC-TYPE LINE 1 POSITION 45 PROMPT. 
IF PSC-PERSON PERFORM ADD-PERSON. 
IF PSC-SPOUSE PERFORM POSITION-SPOUSE 
IF NO-ERR PERFORM ADD-SPOUSE. 
IF PSC-CHILD PERFORM POSITION-CHILD 
IF NO-ERR PERFORM ADD-CHILD. 
MOVE 0 TO ERR-FLG. 


UPDTE-SEC SECTION. 
BEGIN. 
MOVE ''xxxx' TQ LOC1 LOC2. 
MOVE "'HOLD'' TO HR-1 HR-2 HR-3. 
DISPLAY "UPDATE PERSON, SPOUSE, 
LINE 1 ERASE. 
ACCEPT PSC-TYPE LINE 1 POSITION 45 PROMPT. 
IF PSC-PERSON PERFORM UPDTE-PERSON. 
IF PSC-SPOUSE PERFORM UPDTE-SPOUSE. 
IF PSC-CHILD PERFORM UPDTE-CHILD. 
MOVE 0 TO ERR-FLG. 


CHILD - P,S,C" 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M 


PG/LN ee: ee ee ee ee ee eee ee ee eee ee ee eee ee ee eee 


MOVE ''NAME' TO KEY-NAME. 
DELTE-SEC SECTION. 
BEGIN. 
MOVE '"'xx*xx'' TQ LOC1 LOC2. 
MOVE ''HOLD" TO HR-1 HR-2 HR-3. 
DISPLAY "DELETE PERSON, SPOUSE, 
LINE 1 ERASE. 
ACCEPT PSC-TYPE LINE 1 POSITION 45. 
IF PSC-PERSON PERFORM DELTE-PERSON. 
IF PSC-SPOUSE PERFORM POSITION-SPOUSE 
IF NO-ERR PERFORM DELTE-SPOUSE. 
IF PSC-CHILD PERFORM POSITION-CHILD 
IF NO-ERR PERFORM DELTE-CHILD. 
MOVE 0 TO ERR-FLG. 
MOVE ''NAME'' TO KEY-NAME. 


CHILD - P,S,C" 
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169 >0182 MISC SECTION. 

170 >0182 ADD-PERSON. 

171 >0182 MOVE SPACES TO LINE1-DATA. 

172 >0186 PERFORM DISPLAY-LINE1-FORMAT THRU ACCEPT-LINE1-DATA. 
173 >0188 MOVE PERSON-NAME TO KEY-VALUE. 

174 >018C MOVE "'AA'' TO FUNCTION. 

175 >0190 PERFORM ACCESS-LINE1. 

176 >0192 IF ERR 

177 DISPLAY "ERROR ADDING PERSON LINE 01 " LINE 22, 
178 FILE-STAT LINE 22 POSITION 35, | 

179 ACCEPT ANSWER LINE 22 POSITION 40 PROMPT. 

180 >01B6 IF MARITAL-STAT NOT = "'S'' 

181 IF NO-ERR 

182 PERFORM ADD-SPOUSE UNTIL ERR OR NO-SPOUSE. 

183 

184 >01DA ADD-SPOUSE. 

185 >01DA MOVE SPACES TO LINE2-DATA. 

186 >01DE PERFORM DISPLAY-LINE2-FORMAT THRU ACCEPT-LINE2-DATA. 
187 >01E0 IF SPOUSE 

188 MOVE "'AA'' TO FUNCTION 

189 PERFORM ACCESS-LINE2 

190 IF ERR 

191 DISPLAY "TERROR ADDING SPOUSE LINE 02 " LINE 22, 
192 FILE-STAT LINE 22 POSITION 35, 

193 ACCEPT ANSWER LINE 22 POSITION 40 PROMPT 

194 ELSE 

195 PERFORM ADD-CHILD UNTIL ERR OR NO-CHILD. 

196 

197 >022A ADD-CHILD. 

198 >022A MOVE SPACES TO LINE3-DATA CHILDREN. 

199 >0230 PERFORM DISPLAY-LINE3-FORMAT THRU ACCEPT-LINE3-DATA. 
200 >0232 IF CHILD 

201 MOVE "'AA'' TO FUNCTION 

202 PERFORM ACCESS-LINE3 

203 IF ERR | 
204 DISPLAY "ERROR ADDING CHILD LINE 03 '" LINE 22, 
205 FILE-STAT LINE 22 POSITION 35, 

206 ACCEPT ANSWER LINE 22 POSITION 40 PROMPT. 

207 

DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 6 
LINE DEBUG PG/LN oe: a es ee er ee eer er ee eee ee a ee eo ee ee ee nee a 
208 >0264 POSITION-PERSON. 

209 >0264 MOVE "'RF'' TO FUNCTION. 

210 >0268 DISPLAY "POSITION ON PERSON: " LINE 4. 

211 >026E ACCEPT KEY-VALUE LINE 4 POSITION 22 PROMPT. 

212 >0278 PERFORM ACCESS-LINE1. 

213 
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214 
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>027C 
>027C 
>O027E 


>02B8 
>02B8 
>02BA 


>O2F4 
>02F4 
>O2FC 
>0306 
>030A 
>030C 


>0364 
>0364 
>036C 
>0376 
>037A 
>O37E 
>0380 


POSITION-SPOUSE. 

PERFORM POSITION-PERSON. 

IF NO-ERR 
DISPLAY ''POSITION ON SPOUSE: '' LINE 4 
ACCEPT TEMP-NAME LINE 4 POSITION 22 PROMPT. 
IF TEMP-NAME NOT = "' '"' 

PERFORM ACCESS-LINE2 UNTIL ERR OR EOL OR 
TEMP-NAME = SPOUSE-NAME. 


POSITION-CHILD. 
PERFORM POSITION-SPOUSE. 
IF NO-ERR 
DISPLAY "POSITION ON CHILD: '' LINE 4 
ACCEPT TEMP-NAME LINE 4 POSITION 22 PROMPT 
IF TEMP-NAME NOT = "' '" 
PERFORM ACCESS-LINE3 UNTIL ERR OR EOL OR 
TEMP-NAME = CHILD-NAME. 


UPDTE-PERSON. 
DISPLAY "PERSON'S FULL NAME: ' LINE 3 ERASE. 
ACCEPT KEY-VALUE LINE 3 POSITION 22 PROMPT. 
MOVE "RF" TO FUNCTION. 
PERFORM ACCESS-LINE1. 
IF ERR 
DISPLAY "ERROR READING PERSON LINE 01 " LINE 24 
FILE-STAT LINE 24 POSITION 35 
ACCEPT ANSWER LINE 24 POSITION 40 PROMPT 
ELSE 
PERFORM DISPLAY-LINE1—FORMAT 
PERFORM DISPLAY-LINE1-DATA 
PERFORM ACCEPT-LINE1-DATA 
MOVE "WT" TO FUNCTION 
PERFORM ACCESS-LINE1 
IF ERR | 
DISPLAY "ERROR UPDATING PERSON LINE 01 '" LINE 24 
FILE-STAT LINE 24 POSITION 35 
ACCEPT ANSWER LINE 24 POSITION 40 PROMPT. 


UPDTE-SPOUSE. 
DISPLAY ''SPOUSE'S FULL NAME: '' LINE 3 ERASE. 
ACCEPT KEY-VALUE LINE 3 POSITION 22 PROMPT. 
MOVE "'RF'' TO FUNCTION. 
MOVE ''SPOU'' TO KEY-NAME. 
PERFORM ACCESS-LINE2. 
IF ERR OR EOL 
DISPLAY "ERROR READING SPOUSE LINE 02 " LINE 24 
FILE-STAT LINE 24 POSITION 35 
ACCEPT ANSWER LINE 24 POSITION 40 PROMPT 
ELSE 
PERFORM DISPLAY-LINE2-FORMAT 
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>03E9 
>03E9 
>03F2 
>O3FC 
>0400 
>0405 
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>0470 
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>0478 
>0482 
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L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 
DEBUG PG/LN Rises 
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OPT=M PAGE 4 

PERFORM DISPLAY-LINE2-DATA 

PERFORM ACCEPT-LINE2-DATA 

MOVE '"WT'' TO FUNCTION 

PERFORM ACCESS-LINE2 

IF ERR 
DISPLAY "TERROR UPDATING SPOUSE LINE 03 '"' LINE 24 
FILE-STAT LINE 24 POSITION 35 
ACCEPT ANSWER LINE 24 POSITION 40 PROMPT. 


UPDTE-CHILD. 


DISPLAY "CHILD'S FULL NAME: '' LINE 3 ERASE. 
ACCEPT KEY-VALUE LINE 3 POSITION 22 PROMPT. 
MOVE "'RF'' TO FUNCTION. 
MOVE ''CHLD'' TO KEY-NAME. 
PERFORM ACCESS-LINES3. 
IF ERR OR EOL 
DISPLAY "TERROR READING CHILD LINE 03 ' LINE 24, 
FILE-STAT LINE 24 POSITION 355, 
ACCEPT ANSWER LINE 24 POSITION 40 PROMPT 
ELSE 
PERFORM DISPLAY-LINE3-FORMAT 
PERFORM DISPLAY-LINE3-DATA 
PERFORM ACCEPT-LINE3-DATA 
MOVE "WT'' TO FUNCTION 
PERFORM ACCESS-LINE3 
IF ERR 
DISPLAY "TERROR UPDATING CHILD LINE 03 '" LINE 24, 
FILE-STAT LINE 24 POSITION 35, 
ACCEPT ANSWER LINE 24 POSITION 40 PROMPT. 


DELTE-PERSON. 


DISPLAY "PERSON'S FULL NAME: " LINE 3 ERASE. 

ACCEPT KEY-VALUE LINE 3 POSITION 22 PROMPT. 

MOVE "DR'' TO FUNCTION. 

PERFORM ACCESS-LINE1. 

IF ERR 
DISPLAY "ERROR READING SPOUSE LINE O02 "' LINE 24, 
FILE-STAT LINE 24 POSITION 35, 
ACCEPT ANSWER LINE 24 POSITION 40 PROMPT. 


DELTE-SPOUSE. 


IF ERR 
DISPLAY "'ERROR READING SPOUSE LINE 02 " LINE 24, 
FILE-STAT LINE 24 POSITION 35, 
ACCEPT ANSWER LINE 24 POSITION 40 PROMPT 
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309 
310 
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314 
315 
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317 
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DXCBL 


LINE 
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343 
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ELSE 
MOVE "'DL'' TO FUNCTION 
PERFORM ACCESS-LINE2 
IF ERR 
DISPLAY ''ERROR DELETING SPOUSE LINE 03 '' LINE 24 
FILE-STAT LINE 24 POSITION 35, 
ACCEPT ANSWER LINE 24 POSITION 40 PROMPT 
ELSE 
MOVE " '" TO LOC1 LOC2 
PERFORM DELTE-CHILDREN UNTIL EOL OR ERR. 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M 


DEBUG PG/LN ed Pe ee eee ee ee ee ee ee ee ee ee ee ee eee eee ee ee 


>0530 
>0530 


>058A 
>058A 
>0O58E 
>0590 


>05A2 
>05A2 
>05A2 
>05A5 


>05B4 


>05B4 


>05B7 


>05C6 
>05C6 


>05C9 


DELTE-CHILD. 
IF ERR 
DISPLAY "ERROR READING CHILD LINE 03 " LINE 24, 
FILE-STAT LINE 24 POSITION 35, 
ACCEPT ANSWER LINE 24 POSITION 40 PROMPT 
ELSE 
MOVE '"'DL'' TO FUNCTION 
PERFORM ACCESS-LINE3 
IF ERR 
DISPLAY "ERROR DELETING CHILD LINE 03 " LINE 24, 
FILE-STAT LINE 24 POSITION 35, 
ACCEPT ANSWER LINE 24 POSITION 40 PROMPT. 


DELTE-CHILDREN. 
MOVE "'RF'' TO FUNCTION. 
PERFORM ACCESS-LINE3. 
IF NO-ERR 
MOVE "'DL'' TO FUNCTION 
PERFORM ACCESS-LINE3. 


DBMS-ACCESS SECTION. 
ACCESS-LINE1. 
CALL 'DBMSYS'" USING FUNC-LIST LINE1-LIST 
LINE1-LIST LINE2-LIST LINE1-DATA LINE2-DATA. 
IF FILE-STAT NOT = ''**'' ADD 1 TO ERR-FLG. 


ACCESS-LINE2. 
CALL "'DBMSYS' USING FUNC-LIST LINE1-LIST 
LINE2-LIST LINE3-LIST LINE2-DATA LINE3-DATA. 
IF FILE-STAT NOT = ''**'' ADD 1 TO ERR-FLG. 


ACCESS-LINE3. 
CALL "DBMSYS' USING FUNC-LIST LINE1-LIST 


LINES-LIST LINE1-DATA LINE3-DATA DELIM. 
IF FILE-STAT NOT = ''**" ADD 1 TO ERR-FLG. 
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>05DA 
>O5DA 
>O05DA 


>064B 
>064B 
>064B 
>0653 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM: 

Bras sd Be seek aie wae Ao ses Shree Se eral w a wie Sree ane et See Sere Se ase ete 
MOVE ''Y'' TO PERSONS 
ACCEPT PERSON-SEX 


DEBUG PG/LN 


>06B8 
>06B8 
>06B8 


DISPLAY-LINE1-FORMAT SECTION. 


BEGIN. 


DISPLAY "PERSON'S FULL NAME:" LINE 


"SEX: 1! 
"DATE OF BIRTH: " 
"MONTH: " 
"DAY: oo"! 
"YEAR: " 

"PLACE OF BIRTH: " 
"  STATE/COUNTRY:" 
"MARITAL STATUS: " 
"FATHER: " 
"MOTHER: " 


ACCEPT-LINE1-DATA SECTION. 


BEGIN. 


ACCEPT PERSON-NAME 
IF PERSON-NAME = "' "! 


MOVE "'N'' TO PERSONS 
ELSE 


PERSON-DOB-MO 
PERSON-DOB-DA 
PERSON-DOB-YR 
PERSON-POB-STATE 
MARITAL-STAT 
FATHER 

MOTHER 


DISPLAY-LINE1-DATA SECTION. 


BEGIN. 


DISPLAY PERSON-NAME 


PERSON-SEX 
PERSON-DOB-MO 
PERSON-DOB-DA 
PERSON-DOB-YR 
PERSON-POB-STATE 
MARITAL-STAT 
FATHER 

MOTHER 
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3 POSITION 1 
LINE 4 POSITION 1 
LINE 5 POSITION 1 
LINE 6 POSITION 1 
LINE 7 POSITION 1 
LINE 8 POSITION 1 
LINE 9 POSITION 1 
LINE 10 POSITION 1 
LINE 11 POSITION 1 
LINE 12 POSITION 1 
LINE 13 POSITION 1 


LINE 3 POSITION 22. 


SS  OPT=M PAG 
LINE 4 POSITION 
LINE 6 POSITION 
LINE 7 POSITION 
LINE 8 POSITION 
LINE 10 POSITION 
LINE 11 POSITION 
LINE 12 POSITION 
LINE 13 POSITION 
LINE 3 POSITION 
LINE 4 POSITION 
LINE 6 POSITION 
LINE 7 POSITION 
LINE 8 POSITION 
LINE 10 POSITION 
LINE 11 POSITION 
LINE 12 POSITION 
LINE 13 POSITION 
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>070F 
>070F 


>0760 
>0760 
>0768 


>07AD 
>07AD 


>07E8 
>07E8 


DEBUG 


>083A 
>083A 
>0842 


=a = = «=> = — > — > 
. 


DISPLAY-LINE2-FORMAT. 
DISPLAY "SPOUSE'S FULL NAME: '' LINE 3 POSITION 1 ERASE 
"SEX: '" LINE 4 POSITION 
"DATE OF BIRTH: " LINE 5 POSITION 
" MONTH: "' LINE 6 POSITION 
- DAY: ‘ LINE 7 POSITION 
a. YEAR: '" LINE 8 POSITION 
"PLACE OF BIRTH: "! LINE 9 POSITION 
" STATE/COUNTRY: "' LINE 10 POSITION 
ACCEPT-LINE2-DATA. 
ACCEPT SPOUSE-NAME LINE 3 POSITION 22. 
IF SPOUSE-NAME =" " 
MOVE ''N'' TO SPOUSES 
ELSE 
MOVE ''Y'' TO SPOUSES 
ACCEPT SPOUSE-SEX LINE 4 POSITION 22 
SPOUSE-DOB-MO LINE 6 POSITION 22 
SPOUSE-DOB-DA LINE 7 POSITION 22 
SPOUSE-DOB-YR LINE 8 POSITION 22 
SPOUSE-POB-STATE LINE 10 POSITION 22. 
DISPLAY-LINE2-DATA. 
DISPLAY SPOUSE-NAME LINE 3 POSITION 22 
: SPOUSE-SEX LINE 4 POSITION 22 
SPOUSE-DOB-MO LINE 6 POSITION 22 
SPOUSE-DOB-DA LINE 7 POSITION 22 
SPOUSE-DOB-YR LINE 8 POSITION 22 
SPOUSE-POB-STATE LINE 10 POSITION 22. 
DISPLAY-LINE3-FORMAT. 
DISPLAY "CHILD'S FULL NAME: '" LINE 3 POSITION 1 ERASE 
"SEX: '" LINE 4 POSITION 1 
"DATE OF BIRTH: " LINE 5 POSITION 1 
L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 
PG/LN Aico Bis teeth sa ae wie bh ok Sate Bee eee ae eee ee eae eee 
"MONTH: " LINE 6 POSITION 1 
"DAY: LINE @ POSITION 1 
"YEAR: 3" LINE 8 POSITION 1 
" PLACE OF BIRTH: " LINE 9 POSITION 1 
" STATE/COUNTRY: " LINE 10 POSITION 1 
ACCEPT-LINE3-DATA. 
ACCEPT CHILD-NAME LINE 3 POSITION 22. 
IF CHILD-NAME = '' '"'! 


MOVE 


"N'' TO CHILDREN 
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ELSE 
MOVE '"'Y'' TO CHILDREN 
ACCEPT CHILD-SEX 
CHILD-DOB-MO 
CHILD-DOB-DA 
CHILD-DOB-YR 
CHILD-POB-STATE 


DISPLAY-LINE3-DATA. 


DISPLAY CHILD-NAME 
CHILD-DOB-MO 
CHILD-DOB-DA 
CHILD-DOB-YR 
CHILD-POB-STAT 


ZZZZZZ END PROGRAM. 


SIZE 


2 
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ANS 


ANS 
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ANS 
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ANS 
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NUMERIC UNSIGNED 
CONDITION-NAME 
CONDITION-NAME 


ALPHANUMERIC 
CONDITION-NAME 
CONDITION-NAME 


ALPHANUMERIC 
CONDITION-NAME 
CONDITION-NAME 


ALPHANUMERIC 
CONDITION-NAME 
CONDITION-NAME 


ALPHANUMERIC 

CONDITION-NAME 
CONDITION-NAME 
CONDITION-NAME 
CONDITION-NAME 


ALPHANUMERIC 


ALPHANUMERIC 


ALPHANUMERIC 

CONDITION-NAME 
CONDITION-NAME 
CONDITION-NAME 
CONDITION-NAME 
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POSITION 22 
POSITION 22 
POSITION 22 
POSITION 22 
0 POSITION 22. 


LINE 
LINE 
LINE 
LINE 
LINE 


— COON OQ £ 


POSITION 22 
POSITION 22 
POSITION 22 
POSITION 22 

0 POSITION 22. 
xx*k END OF FILE 


LINE 
LINE 
LINE 
LINE 
LINE 


— CON OW 


MM:SS PAGE 11 


NAME 


OPT=M 


ERR-FLG 
ERR 
NO-ERR 


PERSONS 
PERSON 
NO-PERSON 


SPOUSES 
SPOUSE 
NO-SPOUSE 


CHILDREN 
CHILD 
NO-CHILD 


ACTIVITY 
ACT-ADD 
ACT-UPDTE 
ACT-DELTE 
QUIT 


ACTION 


ANSWER 


PSC-TYPE 
PSC-PERSON 
PSC-SPOUSE 
PSC-CHILD 
NO-PSC 
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>003A 20 ANS 0 ALPHANUMERIC TEMP-NAME 
>004E 34 GRP 0 GROUP FUNC-LIST 
>004E 4 ANS 0 ALPHANUMERIC PASSWORD 
>0052 2 ANS 0 ALPHANUMERIC FUNCTION 
>0054 2 ANS 0 ALPHANUMERIC FILE-STAT 
>0056 4 ANS 0 ALPHANUMERIC FILE-NAME 
>005A 4 ANS 0 ALPHANUMERIC LOC1 
0 CONDITION-NAME EOL 
>005E 4 ANS 0 ALPHANUMERIC LOC2 
>0062 4 ANS 0 ALPHANUMERIC KEY-NAME 
>0066 30 ANS 0 ALPHANUMERIC KEY-VALUE 
>0084 44 GRP 0 GROUP LINE1-LIST 
>0088B 1 ANS 0 ALPHANUMERIC TST-1 
>OOAC 4 ANS 0 ALPHANUMERIC HR-1 
>00B0 32 GRP 0 GROUP LINE2-LIST 
>00B7 1 ANS 0 ALPHANUMERIC TST-2 
>00CC 4 ANS 0 ALPHANUMERIC - HR-2 
>00D0 32 GRP 0 GROUP LINE3-LIST 
>00D7 1 ANS 0 ALPHANUMERIC TS1=5 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 12 
ADDRESS SIZE DEBUG ORDER TYPE NAME 
>OOEC 4 ANS 0 ALPHANUMERIC HR-3 
>00F0 103 GRP 0 GROUP LINE1-DATA 
>00F0 30 ANS 0 ALPHANUMERIC PERSON-NAME 
>010E 1 ANS 0 ALPHANUMERIC PERSON-SEX 
>010F 8 GRP 0 GROUP DATE-OF-BIRTH 
>010F 2 ANS 0 ALPHANUMERIC PERSON-DOB-MO 
>0111 2 ANS 0 ALPHANUMERIC PERSON-DOB-DA 
>0113 4 ANS 0 ALPHANUMERIC PERSON-DOB-YR 
>0117 3 GRP 0 GROUP PLACE-OF-BIRTH 
>0117 3 ANS 0 ALPHANUMERIC PERSON-POB-STATE 
>011A 1 ANS 0 ALPHANUMERIC MARITAL-STAT 
>011B 30 ANS 0 ALPHANUMERIC FATHER 
>0139 30 ANS 0 ALPHANUMERIC MOTHER 


Figure 9-4. COBOL Interfacing With DBMS-990 (Sheet 13 of 14) 
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>0158 42 GRP 0 GROUP LINE2-DATA 
>0158 30 ANS 0 ALPHANUMERIC SPOUSE-NAME 
>0176 1 ANS 0 ALPHANUMERIC SPOUSE-SEX 
>0177 8 GRP 0 GROUP DATE-OF-BIRTH 
>0177 2 ANS 0 ALPHANUMERIC SPOUSE-DOB-MO 
>0179 2 ANS 0 ALPHANUMERIC SPOUSE-DOB-DA 
>017B 4 ANS 0 ALPHANUMERIC SPOUSE-DOB-YR 
>017F 3 GRP 0 GROUP PLACE-OF-BIRTH 
>017F 3 ANS 0 ALPHANUMERIC SPOUSE-POB-STATE 
>0182 42 GRP 0 GROUP LINE3-DATA 
>0182 30 ANS 0 ALPHANUMERIC CHILD-NAME 
>01A0 1 ANS 0 ALPHANUMERIC CHILD-SEX 
>01A1 8 GRP 0 GROUP DATE-OF-BIRTH 
>01A1 2 ANS 0 ALPHANUMERIC CHILD-DOB-MO 
>01A3 2 ANS 0 ALPHANUMERIC CHILD-DOB-DA 
>01A5 4 ANS 0 ALPHANUMERIC CHILD-DOB-YR 
>01A9 3 GRP 0 GROUP PLACE-OF-BIRTH 
>01A9 3 ANS 0 ALPHANUMERIC CHILD-POB-STATE 
>O01AC 2 ANS 0 ALPHANUMERIC DELIM 

READ ONLY BYTE SIZE >1094 

READ/WRITE BYTE SIZE >0208 

OVERLAY SEGMENT BYTE SIZE >0000 

TOTAL BYTE SIZE = >129C 

QO ERRORS 
QO WARNINGS 

DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 13 


PROGRAM USING COUNT 


DBMSYS 6 


Figure 9-4. COBOL Interfacing With DBMS-990 (Sheet 14 of 14) 
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FILE=GENE, LINES=600 
ID=NAME=CH/30, VOL=100 
LINE=01 
FIELD=PERS=CH/30 
FIELD=PSEX=CH/1 
GROUP=PDO0B 
FIELD=PMO =CH/2 
FIELD=PDA =CH/2 
FIELD=PYR =CH/4 
ENDG 
FIELD=PPOB=CH/3 
FIELD=MARD=CH/1 
FIELD=FATH=CH/30 
FIELD=MOTH=CH/30 
ENDL 

LINE=02 
FIELD=SPOU=CH/30 
FIELD=SSEX=CH/1 
GROUP=SDOB 
FIELD=SMO =CH/2 
FIELD=SDA =CH/2 
FIELD=SYR =CH/4 
ENDG 
FIELD=SPOB=CH/3 
ENDL 

LINE=03 
FIELD=CHLD=CH/30 
FIELD=CSEX=CH/1 
GROUP=CDOB 
FIELD=CMO =CH/2 
FIELD=CDA =CH/2 
FIELD=CYR =CH/4 
ENDG 
FIELD=CPOB=CH/3 
ENDL 
SECONDARY-REFERENCES 
SPOU=VOL=100 
SPOU=VOL=100 

END. (FORMAT, SECL) 


Figure 9-5. Data Definition Language (DDL) File 
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9.5 QUERY-990 


The Query-990 software package provides aconvenient and efficient means of retrieving data from 
a DBMS-990 database file. Query-990 enables you to gather, modify, and review data without 
writing a program. 


The Query-990 language is an English-like nonprocedural language with statements composed of 
several clauses. The clauses allow you to specify the content and format of each line, as well as 
complex conditions that a database record or line must meet to be qualified for output. Totals, 
counts, or averages can be performed on output fields; default columnar headings and user- 
defined headings are supported. 


When the Query-990 language is used, a complex report may be specified in a few lines, whereas 
an application program to obtain the same report can require several hundred lines. Refer to the 
Query-990 User’s Guide for a detailed explanation of Query-990. 

You can access Query-990 from COBOL programs through a set of assembly language 
subroutines that interface between the Query-990 processor and the application task. The fol- 
lowing subroutines can be linked to the calling task. 


e QCOMP — Compiles, loads, and prepares a Query-990 statement for execution. The 
Query-990 statement is passed from the application task as an array of characters. 


e QINIT — Loads and prepares a Query-990 statement for execution that has already been 
compiled (using QCOMPILE) and stored as an object file. 


e QEXEC — Executes a Query-990 statement started by QCOMP or QINIT and lists the 
results to an output file. 


e QRECV — Processes one cycle of a Query-990 statement. For example, if the Query-990 
is alist function, QRECV returns one logical report line. 


e QSEND — Resets and sends change data values using the contents of the data buffer. 


e QCLR — Reinitializes the Query-990 processor for a particular Query-990 statement 
(aclearing function). 


e QEND — Terminates the Query-990 processor for a particular Query-990 statement. 
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These routines are contained on the library SSQUERY. The following link control file shows how to 
link the COBOL module in Figure 9-6. 


FORMAT IMAGE,REPLACE 
LIBRARY .SCI990.SS$SOBJECT 
PROC RCOBOL 

DUMMY 

INCLUDE .S$$SYSLIB.RCBPRC 
TASK CTEST 

INCLUDE .SSS$SYSLIB.RCBTSK 
INCLUDE .S$$SYSLIB.RCBMPD 
INCLUDE EX.CTEST 

INCLUDE SSSQUERY.COBINT 
INCLUDE SSSQUERY.PLIOBJ 


END 

DNCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 1 
SOURCE ACCESS NAME: — MANUAL.PG.SRC.FIGO906 

OBJECT ACCESS NAME: DUMY 

LISTING ACCESS NAME: MANUAL.PG.LST.FIG0906 

OPTIONS: M 

PRINT WIDTH: 80 

PAGE SIZE: 35 


PROGRAM SIZE (LINES): 1000 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 2 
LINE DEBUG PG/LN Pe aD cote aioe. e etal anleratand eee aida aed arya ere hd essa artes Osea mane cterm arch erere 
IDENTIFICATION DIVISION. 

PROGRAM-ID. QUERY. 
* THIS PROGRAM WAS DEVELOPED AS A FUNCTIONAL 
* DEMONSTRATION TEST TO CHECK INTERFACING 
* COBOL APPLICATIONS WITH QUERY. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION 

SOURCE-COMPUTER. TI-990. 

OBJECT-COMPUTER. TI-990. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 


-"-OOAONA UPWD — 


— —_2 


Figure 9-6. COBOL Module Linked to Query (Sheet 1 of 3) 
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>0000 
>0000 


>0000 


>0002 
>000C 
>0010 
>0018 


>OO1E 


>0046 
>0048 
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01 QUERY-NUMBER PIC 9(5) COMP-1 VALUE 1. 
01 RESULT-STATUS PIC 9(5) COMP-1. 
01 STATEMENT-LENGTH PIC 9(5) COMP-1 VALUE 36. 
01 RESULT-CODE PIC XX. 
01 QUERY-STATEMENT PIC X(€80) VALUE 

"LIST PERS SPOU CHLD FROM GENE NO HEADER '"'. 
01 EXTEND-FILE PIC 9(5) COMP-1. 
01 FORMAT-TEXT PIC 9(€5) COMP-1 VALUE 1. 
01 LIST-TEXT PIC 9(5) COMP-1 VALUE 1. 
01 PAGELENGTH PIC 9(5) COMP-1 VALUE 60. 
01 PAGEWIDTH PIC 9(5) COMP-1 VALUE 80. 
01 LIST-PN PIC X(€48) VALUE ''D.LIST ''. 
01 ALT-COLLATING-PN PIC X(48) VALUE '"' "'. 
01 PASSWORD PIC X(€4) VALUE "DBMS". 
01 CHAR-NUM PIC X(6). 
01 X PIC X. 


PROCEDURE DIVISION. 
MAIN SECTION. 
BEGIN. 


CALL "QCOMP'' USING QUERY-NUMBER, RESULT-STATUS, 
RESULT-CODE, QUERY-STATEMENT, STATEMENT-LENGTH, 
PASSWORD, FORMAT-TEXT, LIST-TEXT, LIST-PN, 
PAGELENGTH, PAGEWIDTH, ALT-COLLATING-PN. 


DISPLAY "RESULT STATUS FROM QCOMP = "' 

LINE 3 POSITION 1 ERASE. 
MOVE RESULT-STATUS TO CHAR-NUM. 
DISPLAY CHAR-NUM LINE 3 POSITION 30. 
ACCEPT X LINE 24. 


IF RESULT-STATUS = 0 
MOVE 1 TO EXTEND-FILE 
CALL "'QEXEC'' USING QUERY-NUMBER, RESULT-STATUS, 
RESULT-CODE, LIST-PN, EXTEND-FILE 
DISPLAY "'RETURN STATUS AFTER QEXEC = " 
LINE 3 POSITION 1 ERASE 
MOVE RESULT-STATUS TO CHAR-NUM 
DISPLAY CHAR-NUM LINE 3 POSITION 30 
ACCEPT X LINE 24. 


CALL "QEND '' USING QUERY-NUMBER, RESULT-STATUS. 
STOP RUN. 
ZZZZZZ END PROGRAM. xk* END OF FILE 


Figure 9-6. COBOL Module Linked to Query (Sheet 2 of 3) 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS  OPT=M PAGE 3 
ADDRESS SIZE DEBUG ORDER TYPE NAME 
>002A 2 NBS 0 BINARY SIGNED QUERY-NUMBER 
>002¢ 2 NBS 0 BINARY SIGNED RESULT-STATUS 
>002E 2 NBS 0 BINARY SIGNED STATEMENT-LENGTH 
>0030 2 ANS 0 ALPHANUMERIC RESULT-CODE 
>0032 80 ANS 0 ALPHANUMERIC QUERY-STATEMENT 
>0082 2 NBS 0 BINARY SIGNED EXTEND-FILE 
>0084 2 NBS 0 BINARY SIGNED FORMAT-TEXT 
>0086 2 NBS 0 BINARY SIGNED — LIST-TEXT 
>0088 2 NBS 0 BINARY SIGNED PAGELENGTH 
>008A 2 NBS 0 BINARY SIGNED PAGEWIDTH 
>008C 48 ANS 0 ALPHANUMERIC LIST-PN 
>00BC 48 ANS 0 ALPHANUMERIC ALT-COLLATING-PN 
>O0EC 4 ANS 0 ALPHANUMERIC PASSWORD 
>00F0 6 ANS 0 ALPHANUMERIC CHAR-NUM 
>00F6 1 ANS 0 ALPHANUMERIC X 
READ ONLY BYTE SIZE = >0156 
READ/WRITE BYTE SIZE = >0112 


OVERLAY SEGMENT BYTE SIZE = >0000 


TOTAL BYTE SIZE = >0268 
Q ERRORS 
0 WARNINGS 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 4 


PROGRAM USING COUNT 


QCOMP 12 
QEND 2 
QEXEC 5 


Figure 9-6. COBOL Module Linked to Query (Sheet 3 of 3) 
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9.6 COMMUNICATIONS 


Several alternative communications packages are available to the 990 user. Depending on your 
application, you can generate acustom system to meet your needs. 


9.7 COMMUNICATION EQUIPMENT 


The communications modules available include the communications interface module, a choice 
of an asynchronous or synchronous modem, and an accessory auto-call unit (ACU). The communi- 
cations interface module can be used with Belldata sets, which include modems and data-access 
arrangements. 


The communications interface module provides an RS-232C interface with full modem control 
signals for asynchronous and synchronous modems. Baud rates of 75, 110, 150, 200, 300, 1200, 
2400, 4800, and 9600 meet almost any communications requirement. Character size is selected 
from 5 to 9 bits with programmable parity (odd, even, or none). Other features include line 
break detection/generation, a 250-millisecond timer, programmable SYN, DLE stripping, 
false-bit-start-bit detection, stop-bit selection, and programmable self-test. 


9.8 3780 EMULATOR COMMUNICATIONS SOFTWARE 


The 3780 emulator communications software package provides a means of remote job entry (RJE) 
communications with an IBM 360/370 host computer or another 3780 emulator. Communication 
consists of exchanging data files between master and slave stations over leased point-to-point or 
switched telephone lines. 


Using the 3780 emulator, systems running DX10 can serve as satellite and/or central stations in 
distributed processing networks, or can be used to handle RJE or batch data entry for processing 
by a host. Remote stations can be dialed manually or automatically with an optional ACU anda 
modem. Remote stations can also be operated in an unattended mode as a called station in a dis- 
tributed network. 


TI 3780 emulator communications software emulates the operation of the IBM 3780 Data Commun- 
ications Terminal. However, unlike the IBM 3780, the source and destination of the transferred 
files using the Tl 3780 emulator are not restricted to the card reader/punch and line printer. Any 
file, input device, or output device available to your system can be used for input or output. 
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Using SCI Command Procedures 
to Execute COBOL Tasks 





10.1 GENERAL 


This section introduces the application of custom tailored SCl command procedures (procs) to the 
execution of COBOL tasks. It does not attempt to provide materials sufficient for the general mas- 
tery of writing and using SCI procedures: this has been addressed in the DX10 Systems 
Programmer’s Guide and the tutorial SC/: A Self-Study Approach to Writing Command Procedures 
and Batch Streams. Here the objective is to give you, the COBOL programmer, an understanding 
of the applicability of procs to your work, and to provide you with specific examples you may be 
able to adapt and use directly. If you have already had some experience with SCI procs, this chap- 
ter may serve as a review. 


10.2 SCI COMMAND PROCEDURE ELEMENTS 


SCI, the System Command Interpreter which runs under the DX10 Operating System, can be tai- 
lored for specific applications by writing and using new commands. Adding a new command 
_involves writing a command procedure. This command procedure is a sequence of SCI statements 
stored in a file under a user-specified name and executed by SCI each time that name is invoked. 
The command procedure constitutes anew SCI command in its own right. 


A command procedure is composed of SCI commands and their associated parameters, SCI 
primitives, and special statements that produce interactive field prompts at the user terminal. In 
some cases, the procedures may also invoke a user-Supplied command processor. 


SCI primitives are system routines which constitute the lowest-level components of the SCI lan- 
guage. They cannot be modified, deleted, or added by users. They are invoked by name, and their 
names are syntactically distinguished from other SCI commands by an initial period (.). 


Interactive prompts allow procs to be generalized for use under varying conditions (for example, 
with different programs and files). Up to 22 such prompts may be incorporated in a single proc. 


A command processor is a task—which you can supply—invoked within a command procedure. 
The processor can be an application program written in any language supported by DX10, or it can 
be a utility program written specifically to perform operations required by a command. Command 
processors are invoked from a command procedure using one of the primitives .BID, .DBID, or 
.QBID. The .BID primitive invokes the processor as a foreground task, .QBID invokes the processor 
as a background task, and .DBID places the processor in a suspended state in background mode. 
Processors executed by .BID must terminate to allow SCI to resume execution. 


All procedures and processors must be /nstalled before use. 
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10.3. EXAMPLE COMMAND PROCEDURES 


Figure 10-1, Figure 10-2, and Figure 10-3 are sample command Meee See Each is explained tn 
detail in the following discussions. 


10.3.1 Example 1 

Figure 10-1 shows a simple example of a user-supplied command procedure that functions pri- 
marily to issue a sequence of standard SCI commands. In all the examples in this section, the line 
numbers appearing at the left are included to facilitate a line-by-line explanation which is given 
following the proc. They are not part of the proc. 


1) COBCX (COBOL COMPILE AND EXECUTE) 
2) | 

3) XCCF SRC=MANUAL.PG.SRC.FIG1001, 
4) OBJ=MANUAL.PG.OBJ.FIG1001, 

5) LST=MANUAL.PG.LST.FIG1001 


6) | 
7) .IF a$scc, EQ, 0 'IF COMPILE WORKED, RUN PROGRAM 
8) XCPF OBJ=MANUAL.PG.OBJ.FIG1001 

9) ENDIF 

10) | 


11) .IF a$$cc, EQ, 0 
12) MSG T="SUCCESSFUL COMPLETION: CODE = a$$cc" 


13) .ELSE 
14) MSG T="UNSUCCESSFUL COMPLETION: CODE = a$$Cc" 
15) ENDIF 


Figure 10-1. Simple SCI Procedure 
1) COBCX (COBOL COMPILE AND EXECUTE) 


Line 1 gives the name of the proc (COBCX) and a note concerning its function. This is a non- 
executing but required statement. 


) ! 

) XCCF SRC=MANUAL.PG.SRC.FIG1001, 

) OBJ=MANUAL.PG.OBJ.FIG1001, 

) LST=MANUAL.PG.LST.FIG1001 

) | 

) .IF a$$CcC, EQ, 0 !ITF COMPILE WORKED, RUN PROGRAM 


The exclamation points (!) in lines 2, 6, and 7 denote the start of non-executing comments. These 
Can be used at any column in a line (for example, following a command as in line 7) to signal the 
beginning of acomment. By including on a line only an exclamation point in column 1 (lines 2 and 
6) a blank line can be introduced for spacing. An asterisk (*) can also be used to denote a non- 
executing comment, but only when placed at the beginning of a line. It has other meanings else- 
where. 


3) XCCF SRC=MANUAL.PG.SRC.FIG1001, 
4) OBJ=MANUAL.PG.OBJ.FIG1001, 
5) LST=MANUAL.PG.LST.FIG1001 
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In line 3, the example proc issues the SCI command XCCF (Execute COBOL Compiler in Fore- 
ground). The values given to SRC, OBJ, and LST in lines 3, 4, and 5 satisfy the command pro- 
cessor’s requirements for the specification of file locations. Were you to issue the XCCF 
command interactively, you would be prompted (non-optionally) for these filenames. Thus, they 
must be included as part of the command as entered from the proc. 


7) .IF ag$cc, EQ, 0 1IF COMPILE WORKED, RUN PROGRAM 
8) XCPF OBJ=MANUAL.PG.OBJ.FIG1001 

9)  .ENDIF 

10) |! 


) IF a$$cc, EQ, 0 
) MSG T=""SUCCESSFUL COMPLETION: CODE = a$$CC" 
13) .ELSE 
) MSG T="UNSUCCESSFUL COMPLETION: CODE = a$$CC" 
) ENDIF 


In lines 7 through 9 the example proc employs the .IF/.ENDIF construct, and in lines 11 through 15 
the .IF/.ELSE/.ENDIF construct. .IF, .ELSE, and .ENDIF are SCI primitives. Their usage is similar to 
that in most programming languages. 


In order to explain lines 7 through 9, it is necessary to review the topic of SCl synonyms. These are 
short words or acronyms which appear in procs preceded by the “@” sign, and which function as 
macros. That is, before a line containing a synomym is executed, a value is substituted for the 
synonym. In line 7, $$CC is asynonym and will be replaced before execution with a four-digit hex- 
adecimal completion code returned by a command processor. The value of the code indicates 
whether the compilation initiated by the XCCF command was successful. 


$$CC is aglobal synonym; that is, asynonym whose value is set by the DX10 operating system and 
made available to a user automatically. You can also define your own personal synonyms by using 
the SCI command AS (Assign Synonym) or the primitive .SYN (discussed in the next example). 
Most typically, synonyms are used to substitute for long pathnames, but they can also substitute 
for SCI commands, complete with argument lists. For acomplete discussion of synonyms, refer to 
the DX10 Systems Programmer’s Guide. 


Depending on the value of the compilation completion code $$CC, the compiled program is exe- 
cuted with the XCPF command (Execute COBOL Program File) in proc line 8. Whatever the result 
of the compilation attempt, an appropriate message is displayed at the terminal by means of the 
F/.ELSE/.ENDIF control structure in lines 11 through 15. This completes the operations per- 
formed by the proc. 


10.3.2 Example 2 . 
Figure 10-2 shows an example of a user-supplied command procedure to execute a COBOL task. 
As shown, both primitives and other command procedures are used to assign needed synonyms, 
create necessary directories, and assign LUNOs. Note the use of asterisks, as an alternative to 
exclamation points, to denote comment lines. Unlike exclamation points, asterisks must be 
placed in column 1 to establish a line as a non-executing comment. As in the previous example, 
the line numbers appearing to the left of the listing are not part of the proc, but are included to 
facilitate the line-by-line explanation that follows. | 
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1) SALES (SALES ANALYSIS)=3, 

2) COMPANY NAME = *ACNMCQCNAME) 
3) 

4) .SYN CNAME = "'&COMPANY NAME" 
5) .SYN CMAS = "'@CNAME.CMAS"! 

6)  .SYN OUTFILE = "@CNAME.PRINT" 
7) * 

8) CFDIR PATH = "'@CNAME'', MAX=2 
9) * 3 

10) AL ACCESS=.ARPROG, PR=YES 

11) * 

12) XCTF P=a@$$LU, T=SALEANAL 

13) * 

14) .SHOW @OUTFILE 

15) * 

16) MSG TEXT=""PRINT RESULTS CY/N)?", REPLY=ANS 
17) 

18)  .IF @ANS, LT, "YY" 

19) .EXIT 

20) .ENDIF 

21) * 

22) MSG TEXT="'"HOW MANY COPIES?'', REPLY=NUMCOPIES 
23) * 

24) .LOOP 


25)  .WHILE @NUMCOPIES, GT, 0 
26) PF FILE PATHNAME = Q@OUTFILE, LISTING DEVICE = LPO1 
27) .EVAL NUMCOPIES = @NUMCOPIES - 1 


28) .REPEAT 

29) «x 

30) .SYN NUMCOPIES="""" 

31) .SYN CMAS=""" QUTFILE=""", ANS="""! 

32) * 

33) DD PATHNAME = @CNAME, ARE YOU SURE? = Y 
34) * 


35) RL L=a@$$LU 


Figure 10-2. Tailored SCI Procedure 


The proc (SALES) functions as follows: 
1) SALES (SALES ANALYSIS)=3, 


In line 1, the proc’s name is defined, an expansion provided for that name, and a privilege level of 3 
set. The latter means that only users at privilege level 3 or higher will be able to execute the proc. 


2) COMPANY NAME = *ACNM(C@QCNAME) 
Because a variable (COMPANY NAME) is set to an input type (ACNM, for ACcess NaMe), line 2 


results in an interactive prompt. The user is asked to supply a value for COMPANY NAME. This will 
be assigned later (in line 4) to the synonym CNAME. 
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Because a value (@CNAME) is given in parentheses following the ACNM keyword, that value will be 
displayed at the terminal along with the prompt. It constitutes a default response to the prompt. 


The asterisk preceding the input type ACNM indicates to SCI that a reply to this prompt is 
optional. The user may choose not to input any value in response to the prompt. This is done by 
pressing the Return key without entering a value. Such a response, taken in concert with the speci- 
fication of adefault response, constitutes acceptance of the default. 


4) .SYN CNAME = "'&COMPANY NAME" 


In line 4, the ampersand (&) preceding COMPANY NAME tells SCI to use the value entered by the 
user when he was prompted for COMPANY NAME by the statement in line 2. If he entered RETURN 
to accept the default (QONAME), the value for that synonym will be used for ™COMPANY NAME. In 
either case, a new value will be set for the synonym CNAME, equal to whatever has been passed as 
& COMPANY NAME. | 


Note the difference between a synonym (preceded by 9) and the user response to a prompt 
(preceded by &). Although both function as placeholders for some other literal, the user response 
is local to the proc which prompted for it. The synonym, by contrast, is available to any proc or 
command referencing it, until it is specifically removed from the user’s synonym table. Thus if the 
proc above were to bid another proc, ACNAME would be defined for that second proc, whereas 
& COMPANY NAME would not. 


5) «SYN CMAS = "@CNAME.CMAS" 
6) .SYN OUTFILE = "@CNAME.PRINT'! 


In lines 5 and 6, the .SYN primitive is invoked to assign the synonyms CMAS and OUTFILE using 
the synonym CNAME as adirectory path. The synonyms assigned are employed within the user’s 
COBOL program. The proc may thus be directed, by means of interactive responses, to receive its 
input from, and direct its output to, different files at different times. It will be unnecessary to 
change (and recompile, and relink) the referenced COBOL program. 

8) CFDIR PATH = ''QCNAME'', MAX=2 


In line 8, the SCI command CFDIR (Create File DiRectory) creates a directory using synonym 
CNAME as the directory access name. This will be used to store output files temporarily. 


10) AL ACCESS=.ARPROG, PR=YES 


In line 10, the SCI command AL assigns a LUNO to the program file containing the task to be exe- 
cuted. $$LU is a global synonym automatically set by SCI to the LUNO number assigned. 


12) XCTF P=a$$LU, T=SALEANAL 


The SCI command XCTF is invoked in line 12 to execute the COBOL task in foreground mode. The 
values given for the variables P and T satisfy the requirements of the command. 


14) .SHOW @OUTFILE 


In line 14, the SHOW primitive is used to display the output file on the VDT screen. 
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16) MSG TEXT=""PRINT RESULTS (Y/N)?", REPLY=ANS 
17) * 
18) .IF @ANS, LT, 'Y" 
19) .EXIT 
20) .ENDIF 

* 


21) 
22) MSG TEXT=""HOW MANY COPIES?"', REPLY=NUMCOPIES 


In lines 16 through 20 the user is asked whether a printout of the run’s results is desired. A nega- 
tive reply causes the proc to be exited (line 19). If the user indicates he does want a printout, he is 
asked how many copies (line 22). 


24) .LOOP 

25) .WHILE @NUMCOPIES, GT, 0 

26) PF FILE PATHNAME = @OUTFILE, LISTING DEVICE = LPO1 
27) .EVAL NUMCOPIES = @NUMCOPIES - 1 

28) .REPEAT 


The primitives .LOOP, .WHILE, and .REPEAT in lines 24 through 28 comprise a control structure 
that functions like loop constructs in other programming languages. The loop begins with a check 
on the value of the integer-valued synonym NUMCOPIES. If it is positive, the SCl command PF 
(Print File) is issued, with OUTFILE the destination. The primitive .EVAL performs the specified 
arithmetic on NUMCOPIES, reducing it by 1. (Note that NUMCOPIES, being a synonym, is stored 
as a character string; nevertheless, this character string must represent an integer in order to be 
used with .EVAL .) The .REPEAT primitive signals the boundary of the loop. Hence, control returns 
to line 25, and the loop is continued until the value of NUMCOPIES has been reduced to 0. 


30) .SYN NUMCOPIES="""' 

31) .SYN CMAS="""", QUTFILE="'""", ANS="""! 

32) * 

33) DD PATHNAME = @CNAME, ARE YOU SURE? = Y 
34) * 

35) RL L=a$$LuU 


The proc has now finished the work it was created to do, and the remaining statements enact 
cleanup operations. The synonyms NUMCOPIES, CMAS, OUTFILE, and ANS are removed from the 
user’s synonym list by being assigned null values (lines 30 and 31). The directory CNAME, created 
to retain output until any requested printouts are performed, is now deleted with the SCl command 
DD (Delete Directory). Finally, the LUNO assigned in line 10 is released (line 35). 


10.3.3 Example 3 

When a procedure bids a processor (COBOL task), SCI places all the parameters specified in the 
PARMS option of the bid primitive (.BID, .DBID, or .QBID) into a table in the task communications 
area (TCA). Parameters 1 through 5 are used by COBOL; parameters 6 through 8 must be reserved 
for future use. If it is desired to obtain the parameters from the TCA, the processor must be coded 
appropriately. The procedure shown in Figure 10-3 illustrates how to pass an additional parameter 
to the COBOL run-time interpreter. The COBOL task is executed by the .BID primitive. 
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1) SALES (SALES ANALYSIS)=3, 

2) COMPANY NAME = *ACNM(CQCNAME), 

3) PROGRAM FILE LUNO = INTC"@$SXCTSP''), 

4) TASK ID OR NAME = STRINGC"@SXCTST"), 

5) DEBUG MODE = YESNOCNO), 

6) MESSAGE ACCESS NAME = *ACNMC"@Q$XCTSL"'), 
7) SWITCHES = *STRING(''00000000'"), 


8) FUNCTION KEYS = YESNO(CNO) 

9) .SYN CNAME = "&COMPANY NAME" 

10) .SYN SXCTSP = '"'&PROGRAM FILE LUNO" 

11) «SYN SXCTST = "&TASK ID OR NAME" 

12) .SYN SXCTSL = "&MESSAGE ACCESS NAME" 

13) .BID TASK = &TASK ID OR NAME, LUNO = "'&PROGRAM FILE LUNO", 
14) PARMS = (,"&DEBUG MODE',@&MESSAGE ACCESS NAME, 

15) "&SWITCHES",&FUNCTION KEYS,,,,,2CNAME) 

16) *** PARMS # 6, 7, & 8 ARE RESERVED FOR FUTURE COBOL USE 


Figure 10-3. COBOL Procedure 


Only a few new elements are introduced in this third example. Notice the three new input types: 
INT (integer), STRING, and YESNO. Note that the dollar signs ($) used in the synonym names have 
no special meaning within the context of an SCI prompt. However, dollar signs should be used 
with care in synonym names since most global (system-defined) synonyms use them, and you 
might inadvertently redefine a global synonym needed for other purposes. 


In line 13 the .BID primitive is invoked to bid acommand processor. Values passed as parameters 
to the task are those for which the user was interactively prompted. 


NOTE 


Future releases of software products from Texas Instruments may 
modify the standard command procedures such that tailored com- 
mand procedures utilizing the method shown in Figure 10-3 may 
require modification. 


Figure 10-4 shows a COBOL program module and illustrates the technique for retrieving additional 
SCI parameters in the module at execution time. Refer to Appendix D for details on the COBOL 
subroutine library module C$PARM. 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 
SOURCE ACCESS NAME: MANUAL.PG.SRC.FIG1004 
OBJECT ACCESS NAME: MANUAL.PG.OBJ.FIG1004 
LISTING ACCESS NAME: MANUAL.PG.LST.FIG1004 
OPTIONS: M 
PRINT WIDTH: 80 
PAGE SIZE: 55 


PROGRAM SIZE (LINES): 1000 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 2 
LINE DEBUG PG/LN Pisa ton Bg, ease arras Giladarcpreical gicerisyeo al ts ahi Ge anip cate cele se GN ei aS ei anol wt cecanarcene ss eee ree 
1 IDENTIFICATION DIVISION. 
PROGRAM-ID. COBOLPRM. 

3 * THIS PROGRAM WAS DESIGNED TO ILLUSTRATE A METHOD 

4 * OF OBTAINING SCI BID PARAMETERS THRU COBOL. 

5 ENVIRONMENT DIVISION. 

6 CONFIGURATION SECTION. 

4 SOURCE-COMPUTER. TI-990. 

8 OBJECT-COMPUTER. TI-990. 

9 DATA DIVISION. 
10 FILE SECTION. 

11 WORKING-STORAGE SECTION. 

12 01 ACTION PIC 99. 
13 01 ERR PIC XxX. 

14 01 PARM-NO PIC S99 COMP-1. 

15 01 PARMS PIC X(40) VALUE '" ''"'. 

16 PROCEDURE DIVISION. 

17 >0000 MAIN-PROG. 

18 >0000 PERFORM GET-PARM UNTIL ACTION = 0. 

19 >000A STOP RUN. 
20 >000C GET-PARM. 
21 >000C DISPLAY "PARM NO?:'"' LINE 1 ERASE. 
22 >0014 ACCEPT ACTION LINE 1 POSITION 10 PROMPT. 
23 >O01E IF ACTION NOT = 0 
24 MOVE ACTION TO PARM-NO 
25 CALL ''CSPARM'' USING ERR PARM-NO PARMS 
26 DISPLAY "PARMS = '' PARMS LINE 4 
27 ACCEPT ACTION PROMPT. 
28 ZZZZZZ END PROGRAM. xx* END OF FILE 


Figure 10-4. COBOL Program Module Retrieving Additional SCI Parameters (Sheet 1 of 2) 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 3 
ADDRESS SIZE DEBUG ORDER TYPE NAME 
>002A 2 NSU 0 NUMERIC UNSIGNED ACTION 
>002C 2 NSU 0 NUMERIC UNSIGNED PARM-NO 
>002E 40 ANS 0 ALPHANUMERIC PARMS 
READ ONLY BYTE SIZE = >00D0 
READ/WRITE BYTE SIZE = >005E 


OVERLAY SEGMENT BYTE SIZE = »>0000 


TOTAL BYTE SIZE = >012E 
0 ERRORS 
0 WARNINGS 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 4 


PROGRAM USING COUNT 


CSPARM 2 


Figure 10-4. COBOL Program Module Retrieving Additional SCI Parameters (Sheet 2 of 2) 
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11.1 FUNCTION KEYS 


Function keys are accessible to COBOL programs through the use of the ACCEPT statement with 
the ON EXCEPTION option. This option causes a function key terminator character to be mapped 
to a user code (refer to Table 11-1), which is returned to the program. The ON EXCEPTION option is 
executed only if a function key terminates the input. Refer to the COBOL Reference Manual for 
complete details of the ACCEPT statement with the ON EXCEPTION option. 


Function keys include event keys, system edit keys, and task edit keys. Event keys terminate input 
and cause immediate return to the calling routine. If input is not in progress, the next executed 
terminal input is terminated by the event character. Data is not lost. Event keys on the VDT include 
Fi, F2, F3, F4, F5, F6, F7, F8, Command, Print, F9, F10, F11, F12, F13, and F14. System edit keys 
include cursor and display control keys including Erase Field, Previous Character, Forward Tab, 
Skip, Home, Next Field, Return, Erase Input, Delete Character, Insert Character, Next Character, 
and Attention. Some of these keys are also task edit keys. Task edit keys include Forward Tab, 
Next Line, Skip, Home, Next Field, Return, Erase Input, Initialize Input, Enter, Previous Field, and 
Previous Line. 


NOTE 


Because the Forward Tab and Return keys have a special termina- 
tion effect on COBOL programs, they are not treated as function 
keys; the code returned is always zero. 
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Table 11-1. Function Key Mapping 


VDT 
Key Character Function Code 
F1 01 
F2 02 
F3 03 
F4 04 
F5 05 
F6 06 
F7 07 
F8 08 
FQ 09 
F10 10 
F11 11 
F12 12 
F13 13 
F14 14 - 
Command 40 
Exit 41 
Print 49 
Previous Line 52 
Next Line 53 
Home 54 
Next Field 55 
Previous Field 56 
Skip 57 
Initialize Input 59 
Erase Input 61 
Enter 64 


11.2 LOW VOLUME INPUT/OUTPUT (I/O) 


The program listed in Figure 11-1 illustrates the use of the COBOL statements ACCEPT and 
DISPLAY. The program is discussed in the following paragraphs. The LINE number preceding each 
explanation corresponds to the line number where the statements appear in the listing in 
Figure 11-1. Refer to the COBOL Reference Manual for syntax and other more detailed information 
relating to the ACCEPT and DISPLAY statements and optional phrases. 


LINE 27: 
The DISPLAY statement displays a specified literal. The ERASE phrase clears the VDT screen 
prior to displaying the specified literal on line 1. If the LINE phrase is not present, the literal is 
displayed on line 2. | 
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LINE 29: 
The ACCEPT statement receives data from the screen. The OFF phrase allows data to be 
input at the VDT keyboard without being displayed on the VDT screen. The data is entered 
into the buffer at line 1, position 20. If the LINE phrase is not present, the data is displayed at 
the next line following the line currently containing the cursor. If no POSITION phrase is 
present, the position defaults to 1. 


LINE 31: 
This DISPLAY statement contains multiple operands. The first operand is displayed at line 2, 
position 1. Position 1 is the default for the first of multiple operands when the POSITION 
phrase is not present. The cursor position is the next character position after the operand. 
The second operand is displayed on line 3, position 2. Since the LINE phrase is not present, 
the operand is displayed on the next line following the line currently containing the cursor. 


If the POSITION phrase is not present when a DISPLAY or ACCEPT statement is used, the 
second operand’s position is 0, which is the default for all operands after the first in a mul- 
tiple operand ACCEPT or DISPLAY statement. Also, the second operand is displayed on the 
same line at the current cursor position. 


LINE 34: 
This ACCEPT statement contains multiple operands. The first operand is accepted at line 2, 
position 24. The second operand is accepted. at line 3, position 24. In both cases, the line and 
position values are specified to meet program requirements. 


If the LINE phrase is not present for the two operands (PRINCIPAL and INT-RATE), the first 
operand is displayed on line 4; the second operand is displayed on line 5. If the POSITION 
phrase is not present for the two operands, the operands are accepted at position 1, which 
overwrites the instructional literals previously written at those positions. 


For both operands, the CONVERT phrase is specified to change the accepted data into the 
receiving field format. Operations such as removal of illegal characters, decimal points, and 
commas; setting the correct sign if numeric; justification; and data type conversions take 
place if the CONVERT phrase is present. 


The ECHO phrase is specified to redisplay the accepted data item after any necessary con- 
versions are performed. It has meaning only if the CONVERT phrase is also present. The line 
and position of the datais the same on the echo as when originally accepted. 


The ON EXCEPTION phrase forces reporting of errors occurring during the CONVERT oper- 
ation. It is also used to report an ACCEPT operation terminated by a function key. This option 
is only available if the COBOL task was executed with the FUNCTION KEYS enabled. The ON 
EXCEPTION phrase is only required for the last operand if the ACCEPT statement contains 
multiple operands. 


LINE 46: 
This DISPLAY statement also contains multiple operands. The purpose is to display a literal 
and a data item on the same line. The first operand is displayed at line number 4, as specified. 
The default position is 1 for the first operand of a multiple operand DISPLAY statement. 


2270521-9701 11-3 


COBOL Device-Dependent Attributes 


The second operand must specify the same line number as the first operand, or it will be dis- 
played on the following line. The position on the first line must also be specified so as not to 
overwrite the first operand displayed. 


The SIZE phrase is present on the second operand to truncate the least significant character 
position. 


LINE 49: 


This DISPLAY statement illustrates a way of generating a display of any specified size up to 
80 by specifying the SIZE phrase with either the figurative constant SPACE or QUOTE as the 
Operand. 


LINE 51: 


This DISPLAY statement illustrates the results of displaying an operand at a line and position 
value that is greater than the maximum defined for the VDT device. 


On aVDT, the maximum number of lines displayed is 24. The maximum number of characters 
on aline is 80. 


When a line number is specified that is greater than the maximum defined line number, it is 
adjusted modulo the maximum line number. In this case, the data is displayed on Line 8. 


When a position number is specified that is greater than the maximum defined position 
number, it is adjusted modulo the maximum position number. In this case, the data is 
displayed at position 10. 


LINE 53: 


The ACCEPT statement accepts 10 characters of data from the VDT screen at line 8, position 
5. This 10-character input field overlaps data previously displayed on the screen. 


If the Return key is pressed before 10 data characters are entered, the TAB phrase causes all 
data characters from the beginning through the end of the field, including the previously dis- 
played data, to be received. If the TAB phrase is not present, only the entered data characters 
are received. However, if function keys are enabled when the program is executed, all data 
characters are received from the beginning through the ending of the input field regardless of 
the presence of the TAB phrase. 


If 10 data characters are entered, the TAB phrase forces a wait until the Forward Tab key or 
Return key is pressed. All other data characters are ignored when waiting for the Forward Tab 
or Return key. 


The PROMPT phrase initializes the input field prior to accepting any data characters. This 
prevents reception of erroneous data remaining on the VDT screen from prior operations. If 
program requirements dictate acceptance of previously displayed information, the Skip key 
can be pressed by the user at the terminal to clear a field of any remaining data prior to 
acceptance. The Skip key fills the field with blanks from the cursor position through the end 
of the field. 
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LINES 57, 59: 
These ACCEPT statements illustrate how to accept numeric data items whose usage is not 
DISPLAY. The CONVERT phrase must be present to convert the ASCII input to the specified 
format of the receiving operand. 


Use the SIZE phrase when accepting numeric operands described other than DISPLAY. The 
SIZE phrase specifies a length equivalent to the length given in the PICTURE clause for the 
receiving operand. 


LINE 61: 
This ACCEPT statement illustrates how to change the prompt character. Use the keyword 
PROMPT followed by the desired one-character, nonnumeric literal enclosed in quotes. The 
default PROMPT character is the underscore. 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 1 
SOURCE ACCESS NAME: MANUAL.PG.SRC.FIG1101 
OBJECT ACCESS NAME: DUMY 
LISTING ACCESS NAME: MANUAL.PG.LST.FIG1101 
OPTIONS: M 
PRINT WIDTH: 80 
PAGE SIZE: 35 


PROGRAM SIZE (LINES): 1000 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 2 
LINE DEBUG PG/LN Riv Biss weiner ew cies Sane eminem o-oo a8 Weis eae es ace we aoe wie. 

1 IDENTIFICATION DIVISION. 

2 PROGRAM-ID. ACCDIS. 

3 * THIS PROGRAM WAS DEVELOPED TO ILLUSTRATE 

4 * THE EFFECTS OF THE OPTIONAL PHRASES ON THE 
5 * ACCEPT/DISPLAY COMMANDS 

6 ENVIRONMENT DIVISION. 

4 CONFIGURATION SECTION. 

8 SOURCE-COMPUTER. TI-990. 

9 OBJECT-COMPUTER. TI-990. 
10 DATA DIVISION. 

11 WORKING-STORAGE SECTION. 

12 01 ASTERISKS PIC X(10) VALUE ALL ''*!'', 

13 01 PASSCODE PIC X(6). 

14 01 PRINCIPAL PIC S999V99. 

15 01 INT-RATE PIC 99V999. 

16 01 INTEREST PIC 999V999. 

17 01 STATUS-CODE PIC 9(4). 
18 01 CVRT-FUNC REDEFINES STATUS-CODE. 

19 O02 CVRT PIC 99. 
20 O02 FUNC PIC OO. 
21 01 COMP-FOUR PIC S99 COMP-4. 

22 01 COMP-ONE PIC S999 COMP-1. 


Figure 11-1. Use of ACCEPT and DISPLAY Statements (Sheet 1 of 3) 
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23 01 ACTION PIC X(4). 

24 PROCEDURE DIVISION. 

25 >0000 MAIN-PROG. 

26 

27 >0000 DISPLAY "ENTER PASSCODE:" LINE 1 ERASE. 

28 

29 >0008 ACCEPT PASSCODE LINE 1 POSITION 20 OFF. 

30 

31 >0013 DISPLAY "INPUT PRINCIPAL AMOUNT: " LINE 2 

32 "INPUT INTEREST RATE:"' POSITION 1. 

33 

34 >001F ACCEPT PRINCIPAL LINE 2 POS 24 PROMPT CONVERT ECHO 

35 INT-RATE LINE 3 POS 24 PROMPT CONVERT ECHO 

36 ON EXCEPTION STATUS-CODE CONTINUE. 

37 

38 >0035 | IF CVRT = 98 

39 

40 DISPLAY "DATA CONVERSION ERROR" LINE 4 

41 . 

4,2 ELSE 

43 

44 COMPUTE INTEREST = PRINCIPAL * CINT-RATE / 100) 

45 

46 DISPLAY "COMPUTED INTEREST:" LINE 4 

47 INTEREST LINE 4 POSITION 24 SIZE 5. 

48 

49 >005B DISPLAY QUOTE LINE 6 SIZE 30. 

50 

51 >0063 DISPLAY ASTERISKS LINE 32 POSITION 90. 

52 

53 >006B ACCEPT ASTERISKS LINE 8 POSITION 5 TAB. 

54 

55 >0075 DISPLAY ASTERISKS. 

56 

DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 3 
ITWE? “DEBUG PC VIEN hese cM aiceaeic aes alias cite ceil genet eae Scie nen Oe gle ene 

57 >0079 ACCEPT COMP-FOUR LINE 12 SIZE 2 PROMPT CONVERT. 

58 

59 >0083 ACCEPT COMP-ONE LINE 13 SIZE 3 PROMPT CONVERT. 

60 

61 >008D ACCEPT ACTION PROMPT "2", 

62 

63 >0094 STOP RUN. 

64 ZZ2ZZZZ END PROGRAM. x** END OF FILE 


Figure 11-1. Use of ACCEPT and DISPLAY Statements (Sheet 2 of 3) 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 4 
ADDRESS SIZE DEBUG ORDER TYPE NAME 
>002A 10 ANS 0 ALPHANUMERIC ASTERISKS 
>0034 6 ANS 0 ALPHANUMERIC PASSCODE 
>003A 6 NSS 0 NUMERIC SIGNED PRINCIPAL 
>0040 5 NSU 0 NUMERIC UNSIGNED INT-RATE 
>0046 6 NSU 0 NUMERIC UNSIGNED INTEREST 
>004C 4 NSU 0 NUMERIC UNSIGNED STATUS-CODE 
>004C 4 GRP 0 GROUP CVRT-FUNC 
>004C 2 NSU 0 NUMERIC UNSIGNED CVRT 
>004E 2 NSU 0 NUMERIC UNSIGNED FUNC 
>0050 1 NMS 0 MULTI BINARY SIGNED COMP-FOUR 
>0052 2 NBS 0 BINARY SIGNED COMP-ONE 
>0054 4 ANS 0 ALPHANUMERIC ACTION 

READ ONLY BYTE SIZE = >01DC 

READ/WRITE BYTE SIZE = >O05A 

OVERLAY SEGMENT BYTE SIZE >0000 

TOTAL BYTE SIZE = >0236 


2 
0 ERRORS 


0 WARNINGS 


Figure 11-1. 


Use of ACCEPT and DISPLAY Statements (Sheet 3 of 3) 


The diagram in Figure 11-2 shows the contents of the VDT screen at completion of the program. 
Both line numbers and position numbers are indicated in the diagram. Line numbers are enclosed 
in parentheses to the right of the diagram; position numbers appear above the diagram. Both line 
and position numbers correspond to discussions in the explanation mentioned previously. 
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(Position Numbers) (Line 
Numbers) 
0012 
1504 
ENTER PASSCODE: (1) 
INPUT PRINCIPAL AMOUNT: 20000N (2) 
INPUT INTEREST RATE: 05500 (3) 
COMPUTED INTEREST: 01100 (4) 
(5) 
orevcretevreerevrreeerepeeueaeeeee ee eee (6) 
(7) 
AAA Kx kKKKKKKK (8) 
AAA *xxxx (9) 
(10) 
(11) 
15 (12) 
128 (13) 
222? (14) 


Figure 11-2. Contents of VDT Screen at Program Completion 


11.3 GRAPHIC INPUT/OUTPUT 


Graphic characters may be represented on VDTs by calling a subprogram to turn on the graphic 
flag in the SVC call block. To enable the graphics option with the CALL statement, use: 


CALL ''CSGRPH''. 
To disable the graphics option, use: 

CALL "CSGROF"'. 
The routine ‘‘C$GRPH” need only be called one time (prior to the first ACCEPT/DISPLAY transfer 
of graphics characters). Refer to the COBOL Reference Manual for details on the ACCEPT and 
DISPLAY commands. Graphics are enabled for the duration of the program run or until “C$GROF”’ 
is called to disable the graphics option. 
When graphics have been enabled by a call to C$GRPH, control characters (characters >00 
_ through >1F) are displayed as graphic characters for input and output. All characters are treated 


as data; no action is taken on control characters that are requested. 


Refer to Appendix D for a sample link control file to access routines in the COBOL subroutine 
library. 


In the following figures, the graphics capabilities are enabled by calling the subroutine C6GRPH 


and disabled by calling C6GROF. Graphic characters must be generated as binary fields either by 
use of COMP-1 dataitems as in Figure 11-3 or COMP-4 data items as in Figure 11-4. 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 1 


SOURCE ACCESS NAME: MANUAL.PG.SRC.FIG1102 


OBJECT ACCESS NAME: DUMY 

LISTING ACCESS NAME: MANUAL.PG.LST.FIG1102 
OPTIONS: M 

PRINT WIDTH: 80 

PAGE SIZE: 55 


PROGRAM SIZE (LINES): 1000 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 2 
LINE DEBUG PG/LN et oe eee eee eee ree ee ee a ae ee ee eee ee ee eee eee eee eee 
1 IDENTIFICATION DIVISION. 
2 PROGRAM-ID. GRAPHICS. 
3 * THIS PROGRAM BOXES THE VDT SCREEN WITH A SOLID LINE. 
4 ENVIRONMENT DIVISION. 
5 CONFIGURATION SECTION. 
6 
4 
8 
9 


SOURCE-COMPUTER. TI-990. 
OBJECT-COMPUTER. TI-990. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
10 01 ACTION PIC X. 
11 01 DISP-CHAR. 
12 O2 FILLER PIC X. 
13 O2 CHR PIC X. 
14 01 COMP-CHAR REDEFINES DISP-CHAR. 
15 O02 WRD PIC 99 COMP-1. 
16 01 ROW PIC 99. 
17 01 COL PIC 99. 
18 01 LIN1 PIC 99 VALUE 1. 
19 01 LIN2 PIC 99 VALUE 24. 
20 01 POS1 PIC 99 VALUE 1. 
21 01 POS2 PIC 99 VALUE 80. 
22 PROCEDURE DIVISION. 
23 >0000 MAIN-PROGRAM. 
24 >0000 DISPLAY '" " LINE 1 ERASE. 
25 >0008 CALL "CSGRPH"'. 
26 >000C DISPLAY-BOX. 
27 >000C MOVE >0A TO WRD. 
28 >0010 DISPLAY CHR LINE 1 POSITION 1. 
29 >0018 MOVE >1A TO WRD. 
30 >001C DISPLAY CHR LINE 1 POSITION 80. 
31 >0024 MOVE >0D TO WRD. 
32 >0028 DISPLAY CHR LINE 24 POSITION 1. 
33 >0030 MOVE >1D TO WRD. 
34 >0034 DISPLAY CHR LINE 24 POSITION 80. 
35 >003C. MOVE >16 TO WRD. 
36 >0040 PERFORM DISPLAY-ROLL VARYING COL FROM 2 BY 1 UNTIL 
37 COL > 79. 
38 >0054 MOVE >09 TO WRD. 
39 >0058 PERFORM DISPLAY-COL VARYING ROW FROM 2 BY 1 UNTIL 
40 ROW > 23. 
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41 >006C CALL ''CSGROF'"'. 

42 >006E ACCEPT ACTION LINE 12 POSITION 40 PROMPT. 

43 >0078 STOP RUN. 

44 >007A DISPLAY-ROLL. 

45 >007A DISPLAY CHR LINE LIN1 POSITION COL 

46 CHR LINE LIN2 POSITION COL. 

47 >008C DISPLAY-COL. 

48 >008C DISPLAY CHR LINE ROW POSITION POS1 

49 CHR LINE ROW POSITION POS2. 

50 >009E _ END-DSP. EXIT. 

51 ZZZZZZ END PROGRAM. kkk END OF FILE 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 3 
ADDRESS SIZE DEBUG ORDER TYPE NAME 

>002A 1 ANS 0 ALPHANUMERIC ACTION 

>002C — 2 GRP 0 GROUP DISP-CHAR 

>002D 1 ANS 0 ALPHANUMERIC CHR 

>002C 2 GRP 0 GROUP COMP-CHAR 

>002C 2 NBS 0 BINARY SIGNED WRD 

>002E 2 NSU 0 NUMERIC UNSIGNED ROW 

>0030 2 NSU 0 NUMERIC UNSIGNED COL 

>0032 2 NSU 0 NUMERIC UNSIGNED LIN1 

>0034 2 NSU 0 NUMERIC UNSIGNED LIN2 

>0036 2 NSU 0 NUMERIC UNSIGNED POS1 

>0038 2 NSU 0 NUMERIC UNSIGNED POS2 

READ ONLY BYTE SIZE = >O17E 
READ/WRITE BYTE SIZE = >0044 
OVERLAY SEGMENT BYTE SIZE = >0000 
TOTAL BYTE SIZE = >01C2 
0 ERRORS 
0 WARNINGS 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 4 
PROGRAM USING COUNT 
CSGROF 0 
CS$GRPH 0 
Figure 11-3. Graphics (Sheet 2 of 2) 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 1 
SOURCE ACCESS NAME: MANUAL.PG.SRC.FIG1103 
OBJECT ACCESS NAME: DUMY 
LISTING ACCESS NAME: MANUAL.PG.LST.FIG1103 
OPTIONS: M 
PRINT WIDTH: 80 
PAGE SIZE: 55 
PROGRAM SIZE (LINES): 1000 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 
LINE DEBUG PG/LN Bear e'B a lax mcs ta vaio as oie, ates va tatoo fer raslo ees eee ee how). A eae Bice ere ee eee ere ree 


2 PROGRAM-ID. GRAPHIC-CHARACTERS. 

3 * THIS PROGRAM WAS DEVELOPED AS A FUNCTIONAL 
4 * DEMONSTRATION TO TEST GRAPHICS CAPABILITY VIA 
5 * "DISPLAY'' COMMAND. 

6 ENVIRONMENT DIVISION. 

7 CONFIGURATION SECTION. 

8 SOURCE-COMPUTER. TI-990. 

9 OBJECT-COMPUTER. TI-990. 

10 DATA DIVISION. 

11 WORKING-STORAGE SECTION. 

12 01 GRAPHICS-HEX-CHARACTERS. 

13 02 x-00 PIC 99 COMP-4 VALUE >00. 
14 02 X-01 PIC 99 COMP-4 VALUE >01. 
15 02 X-02 PIC 99 COMP-4 VALUE >02. 
16 02 X-03 PIC 99 COMP-4 VALUE >03. 
17 02 X-04 PIC 99 COMP-4 VALUE >04. 
18 02 X-05 PIC 99 COMP-4 VALUE >05. 
19 02 X-06 PIC 99 COMP-4 VALUE >06. 
20 02 X-07 PIC 99 COMP-4 VALUE >0/7. 
21 02 X-08 PIC 99 COMP-4 VALUE >08. 
22 02 X-09 PIC 99 COMP-4 VALUE >09. 
23 02 X-OA PIC 99 COMP-4 VALUE >0A. 
24 O02 X-0B PIC 99 COMP-4 VALUE >0OB. 
25 O02 xX-0C PIC 99 COMP-4 VALUE >0C. 
26 O02 X-0D PIC 99 COMP-4 VALUE >0D. 
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Figure 11-4. Graphic Characters (Sheet 1 of 4) 
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DEBUG PG/LN Aare 


>0000 
>0000 
>0008 
>O00A 


>O001E 
>0020 
>0026 
>0028 
>0028 
>002E 
>0038 
>0040 
>004A 
>0052 
>005C 
>0064 
>006E 


01 
01 
01 


01 
01 


99 


COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 
COMP-4 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


>OE. 
>OF. 
>10. 
>11. 
>12. 
>13. 
>14. 
>15. 
>16. 
>17. 
>18. 
>19. 
>1A. 
>1B. 
>1C. 
>1D. 
>i1E. 
>i1F. 


GRAPHIC-HEX-CHARS REDEFINES GRAPHIC-HEX-CHARACTERS. 
PIC 99 COMP-4 OCCURS 32 INDEXED BY X. 


O02 X-OE PIC 
02 X-OF PIC 
02 x-10 PIC 
02 X-11 PIC 
02 X-12 PIC 
02 X-13 PIC 
02 x-14 PIC 
O02 X-15 PIC 
02 X-16 PIC 
O02 X-17 PIC 
02 X-18 PIC 
02 X-19 PIC 
O2 X-1A PIC 
02 X-1B PIC 
02 X-1C PIC 
O02 X-1D PIC 
O02 X-1E PIC 
O02 X-1F PIC 
O02 HEX-CHAR 
ACTION 
DISP-HEX-CHAR. 
O02 HEX 
ROW 
COL 


PIC X. 


PIC 99 COMP-4. 
O02 CHR REDEFINES HEX PIC X. 
PIC 99 VALUE 0. 
PIC 99 VALUE 0. 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 


/ 


PROCEDURE DIVISION. 


MAIN-PROGRAM. 


DISPLAY '' '' LINE 1 ERASE. 
CALL ''C$GRPH''. 
PERFORM DISPLAY-GRAPHIC VARYING X FROM 1 BY 1 

UNTIL X > 8. 
CALL ''C$GROF''. 
ACCEPT ACTION LINE 24. 


STOP RUN. 
DISPLAY-GRAPHIC. 


ADD 2 TO ROW. 
MOVE HEX-CHAR (X) TO HEX. 


DISPLAY CHR LINE 


ROW POSITION 5. 


MOVE HEX-CHAR (X + 8) TO HEX. 


DISPLAY CHR LINE 
MOVE HEX-CHAR (X 
DISPLAY CHR LINE 
MOVE HEX-CHAR (X 
DISPLAY CHR LINE 


ZZZZZZ END PROGRAM. 


ROW POSITION 
+ 16) TO HEX. 
ROW POSITION 
+ 24) TO HEX. 
ROW POSITION 


OPT=M 


25. 


45. 


65. 


Figure 11-4. Graphic Characters (Sheet 2 of 4) 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 4 
ADDRESS SIZE DEBUG ORDER TYPE NAME 
>002A 32 GRP 0 GROUP GRAPHIC-HEX-CHARACTERS 
>002A 1 NMB 0 MULTI BINARY X-00 
>002B 1 NMB 0 MULTI BINARY X-01 
>002C 1 NMB 0 MULTI BINARY X-02 
>002D 1 NMB 0 MULTI BINARY X-03 
>002E 1 NMB 0 MULTI BINARY X-04 
>002F 1 NMB 0 MULTI BINARY X-05 
>0030 1 NMB 0 MULTI BINARY X-06 
>0031 1 NMB 0 MULTI BINARY X-07 
>0032 1 NMB 0 MULTI BINARY X-08 
>0033 1 NMB 0 MULTI BINARY X-09 
>0034 1 NMB 0 MULTI BINARY X-0A 
>0035 1 NMB 0 MULTI BINARY X-0B 
>0036 1 NMB 0 MULTI BINARY X-0C 
>0037 1 NMB 0 MULTI BINARY X-0D 
>0038 1 NMB 0 MULTI BINARY X-0E 
>0039 1 NMB 0 MULTI BINARY X-OF 
>003A 1 NMB 0 MULTI BINARY X-10 
>003B 1 NMB 0 MULTI BINARY X-11 
>003C 1 NMB 0 MULTI BINARY X-12 
>003D 1 NMB 0 MULTI BINARY X-13 
>003E 1 NMB 0 MULTI BINARY X-14 
>003F 1 NMB 0 MULTI BINARY X-15 
>0040 1 NMB 0 MULTI BINARY X-16 
>0041 1 NMB 0 MULTI BINARY X-17 
>0042 1 NMB 0 MULTI BINARY X-18 
>0043 1 NMB 0 MULTI BINARY X-19 
>0044 1 NMB 0 MULTI BINARY X-1A 
>0045 1 NMB 0 MULTI BINARY X-1B 
>0046 1 NMB 0 MULTI BINARY X-1C 
>0047 1 NMB 0 MULTI BINARY X-1D 
>0048 1 NMB 0 MULTI BINARY X-1E 
>0049 1 NMB 0 MULTI BINARY X-1F 
>002A 32 GRP 0 GROUP GRAPHIC-HEX-CHARS 
>0052 2 NBS 0 INDEX-NAME X 

>002A 1 NMB 1 MULTI BINARY HEX-CHAR 
>004A 1 ANS 0 ALPHANUMERIC ACTION 
>004C 1 GRP 0 GROUP DISP-HEX-CHAR 
>004C 1 NMB 0 MULTI BINARY HEX 
>004C 1 ANS 0 ALPHANUMERIC CHR 
>004E 2 NSU 0 NUMERIC UNSIGNED ROW 

>0050 2 NSU 0 NUMERIC UNSIGNED COL 


Figure 11-4. Graphic Characters (Sheet 3 of 4) 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 5 
ADDRESS SIZE DEBUG ORDER TYPE | NAME 

READ ONLY BYTE SIZE = >0124 

READ/WRITE BYTE SIZE = >0058 


OVERLAY SEGMENT BYTE SIZE = >0000 


TOTAL BYTE SIZE = >017C 
Q ERRORS 
0 WARNINGS 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 6 
PROGRAM USING COUNT 
CSGROF 0 
C$GRPH 0 


Figure 11-4. Graphic Characters (Sheet 4 of 4) 
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Error Processing 





12.1 GENERAL 


The COBOL run time retains the status of the most recent I/O operation requested by the COBOL 
program. The status can be either successful or unsuccessful completion, caused by either a con- 
dition detected by COBOL or an error detected by the operating system. 


12.2 FILEWOSTATUS 


If you specify the FILE STATUS clause in a file-control-entry, a status value is placed into a two- 
character data item. This is applicable during execution of an OPEN, CLOSE, READ, WRITE, 
REWRITE, DELETE, or START statement and before any USE procedure is executed. Table 12-1 
lists the file status codes and the I/O operations that can generate each code. The ANSI COBOL 
specifications define these status codes for specific I/O operations. Table 12-2 indicates the file 
status code that is returned for specific errors detected by the operating system. COBOL file 
status code 30 includes any error not listed under errors detected by the operating system. 
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File Status Table 


Table 12-1. 











Xx X 
s Ls 


1/O OPERATION 


CLOSE READ WRITE REWRITE START DELETE UNLOCK 
s**t eT 
Xx 
xX 


X X 
Lee 
x | 





STATUS 
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Table 12-2. Operating System Errors and COBOL File Status Errors 


Operating System COBOL 
Errors File Status 
30 30 
31 30 
32 23 
35 30 
B1 30 
D2 99 
Others 30 


KIF Informative Errors 


B3 10 
B4 22 
B5 - 23 
B7 99 
B8 23 
BD 23 
D2 99 
Others 30 


12.3 FILE VO STATUS VALUES 


The leftmost character position of the COBOL file status data item is zero through three for ANSI- 
defined conditions and nine for implementor-defined conditions as follows: 


Value Condition 


Successful completion 

At end 

Invalid key 

Permanent error 

Error detected by the operating system 


OW NM — © 


The rightmost character position of the COBOL file status data item further describes the results 
of the I/O operation. The following list contains the COBOL file status codes and the conditions 
under which each status code can occur. 
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Code Condition 


00 SUCCESSFUL COMPLETION 
The I/O operation completed successfully. 


02 SUCCESSFUL COMPLETION, DUPLICATE KEY 
A READ statement on a KIF completed successfully. The key value for 
the current key of reference is equal to the value of that same key in 
the next record of the current key of reference. 


10 AT END 
Sequential READ statement on a sequential, relative record, or key- 
indexed file is unsuccessful because an attempt was made to read a 
record but no next logical record exists in the file. 


21 INVALID KEY SEQUENCE 
Sequential WRITE statement on a KIF is unsuccessful because of a 
violation of the ascending sequence requirement for successive 
record key values. 


Sequential REWRITE statement on a KIF was unsuccessful because 
the key was not the same as the key returned by the preceding suc- 
cessful read. 


22 INVALID KEY DUPLICATE 
Random WRITE statement on a relative record or key-indexed file was 
unsuccessful because an attempt was made to write a record that 
would create a duplicate key. 


23 INVALID KEY NO RECORD 
Random READ, DELETE, or REWRITE statement on a relative record or 
key indexed file was unsuccessful because an attempt was made to 
reference arecord identified by a key that did not exist in the file. 


Sequential START statement on a relative record or key-indexed file 
was unsuccessful because the stated comparison was not satisfied by 
any record in the file. 


24 INVALID KEY BOUNDARY 
Sequential or random WRITE statement on a relative record or key 
indexed file was unsuccessful because an attempt was made to write 
beyond the externally defined boundaries of the file. 


30 PERMANENT ERROR 
I/O statement was unsuccessful because a permanent I/O error (such 
as data check, parity error, or transmission error) was detected. 


34 BOUNDARY VIOLATION 
Sequential write access on a sequential organization file was unsuc- 
cessful because an attempt was made to write beyond the externally 
defined boundaries of the file. 
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90 


91 


92 


94 


95 
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Condition 


INVALID OPERATION 
I/O statement was unsuccessful because of a violation of the COBOL 
I/O operation validity table. Refer to Table 12-3. 


Sequential delete or rewrite operation was unsuccessful because the 
operation was not preceded by a successful read. 


FILE NOT OPENED 
I/O statement other than OPEN was unsuccessful because of a 
reference to an unopened file. 


FILE NOT CLOSED 
OPEN statement was unsuccessful because an enemp! was made to 
open afile already opened. 


FILE NOT AVAILABLE 

OPEN statement was unsuccessful because an attempt was made to 
open a file either in the “closed with lock” state, or one for which no 
external correspondence exists. 


INVALID OPEN 


OPEN statement was unsuccessful because of invalid open parame- 


ters such as the following: 
e Open mode disagrees with select statement assignment. 
¢ Open extend attempted on relative record or key-indexed file. 
e Incompatibility in varlable length record. 


e Key count in OPEN statement does not agree with count speci- 
fied in the file definition (KIF only). 


e Key displacement in OPEN statement does not agree with dis- 
placement specified in the file definition (KIF only). 


e Key attributes “‘modifiable” and “‘duplicatable” in OPEN state- 
ment does not agree with those specified in the file definition 
(KIF only). 


e Bad disk name. 
e Access name syntax problem. 
INVALID DEVICE 
OPEN statement was unsuccessful because a mismatch occurred 


between the device requested and the device assigned by the external 
correspondence. Refer to Table 12-4. 
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Code | Condition 


96 UNDEFINED RECORD POINTER 
Sequential READ statement for all file types was unsuccessful 
because the current record pointer was in an undefined state. This can 
occur only if aprevious READ or START statement was unsuccessful. 


97 INVALID RECORD LENGTH 
WRITE statement was unsuccessful because the record length was 
outside the bounds defined by the minimum and maximum record 
sizes. The record length is in hexadecimal. | 


Sequential or random REWRITE statement for all file types was unsuc- 
cessful because the new record length was different from that of the 
record to be rewritten. 


An OPEN statement was unsuccessful because the maximum record 
length was less than the minimum record length or the minimum 
record length was equal to zero. 


99 RECORD LOCKED/OPEN EXCLUSIVE ACCESS 
A DELETE, READ, REWRITE, or START I/O statement on a relative 
record or key-indexed file was unsuccessful because another task 
locked the reference record. This error can occur on execution of a 
READ statement if both a USE procedure and a FILE STATUS data item 
are in effect for the associated file. 


An OPEN statement is unsuccessful because another task opened the 
file with exclusive access. | 


Table 12-3 shows the open mode necessary to perform various I/O operations for sequential, re- 
lative record, and key-indexed files with sequential, random, and dynamic access. Table. 12-4 
shows the program-requested device class versus the corresponding actual device at execution 
time, with the permissible open modes. | 
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Table 12-3. COBOL I/O Operation Validity Table 







OPEN MODE 


SEQ REL KEY 
REL KEY 
REL KEY 





























READ@ SEQ REL KEY SEQ REL 
WRITE _. Ri eee | 

REWRITE? 

DELETES” ~ 

START REL KEY 










READ@ 
WRITE 
REWRITE 
DELETE 
START2 













ZOUZ>A rr“4zZmcomn 


REL KEY 
REL KEY 
REL KEY 


“o-~ 
Zw 


Q-zZ>pz<~o— 






START 


READ NEXT2 REL KEY 






SEQ = SEQUENTIAL FILES 
REL = RELATIVE RECORD FILES 
KEY = KEY INDEXED FILES 


NOTES: 


1. ALL ACCESSES ARE RANDOM EXCEPT READ NEXT, AND DELETE OR REWRITE 
PRECEDED BY A READ NEXT. 


2. SETS CURRENT RECORD POINTER (OPEN ALSO SETS CURRENT RECORD POINTER. ) 
3. MUST BE PRECEDED BY A SUCCESSFUL READ. 


2277281 
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Table 12-4. Device Correspondence Table 


CORRESPONDING DEVICE 
DISK CARD READER RESERVED PRINTER TAPE 


IN, OUT, 
O RANDOM 10, EXT 
OUT, EXT OUT OUT 
2 OUTPUT 
Lae 
IN, OUT, 
EXT 







REQUESTED 
DEVICE 











OUT, EXT 
3 PRINT 
A INPUT- IN, OUT, 
OUTPUT EXT 


IN = OPEN MODE INPUT 
OUT = OPEN MODE OUTPUT 
IO = OPEN MODE I-O 
EXT = OPEN MODE EXTEND 
NOTES? 


1. TAPE INCLUDES MAGNETIC TAPE, MAGNETIC CASSETTE, VDT, AND ASR 733. 
2277282 


12.4 USE OF DECLARATIVES 

If a COBOL program is to intercept and process errors, the program must contain the USE state- 
ment in the declaratives section for each file. Also, you should specify the file-control-entry to 
receive the file status code returned on each I/O request. Refer to the COBOL Reference Manual 
for detailed information on the FILE STATUS clause and the USE statement. 


Program control transfers to the designated declarative procedure when any of the following 
occurs: 


e When the leftmost character of the file status code is not equal to zero 


e Upon recognition of the invalid key condition when the INVALID KEY phrase has not 
been specified in the I/O statement 


e Upon recognition of the at-end condition when the AT END phrase has not been speci- 
fied in the I/O statement : 
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The file status code can be checked and processed under program control. Depending on the code 
received, corrective action can be taken by the program or errors can be ignored. If errors are 
ignored, results are unpredictable. Execution of an INVALID KEY or AT END phrase takes pre- 
cedence over DECLARATIVES. If an INVALID KEY phrase, an AT END phrase, or a declarative pro- 
cedure is not present for a file, the program automatically terminates when an I/O error is detected 
during an I/O request. 


By knowing which operating system error was originally detected, you can determine the cause 
and correct the error. Some errors, such as COBOL error 30, have multiple meanings. The sub- 
routine C$RERR is available for obtaining the operating system I/O status of the most recent I/O 
request attempted. Refer to Appendix D for details on the subroutine C6RERR. COBOL programs 
should always include the call to CSRERR in the declarative section for every file. Then, should an 
error occur, you can examine the appropriate COBOL file status and the OS error to determine the 
cause of the error. 


Figure 12-1 shows how to intercept I/O errors through the use of a declarative section ina COBOL 
program. Subroutine C$RERR is called in the program to obtain the operating system I/O status of 
the I/O request. The example program ignores an invalid record length error (error 97). The file is 
successfully opened and subsequent I/O requests can be performed against the file. 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 1 
SOURCE ACCESS NAME: MANUAL.PG.SRC.FIG1201 
OBJECT ACCESS NAME: DUMY 
LISTING ACCESS NAME: MANUAL.PG.LST.FIG1201 
OPTIONS: M 
PRINT WIDTH: 80 
PAGE SIZE: 55 


PROGRAM SIZE (LINES): 1000 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 2 
LINE DEBUG PG/LN- A...B........-.. Sha ai is siti chante, (ends ay a tatan pa dicen er Granted aaa arial ara 
IDENTIFICATION DIVISION. 

PROGRAM-ID. SEQIO. 
* THIS PROGRAM WAS DESIGNED AS A FUNCTIONAL 
x DEMONSTRATION TEST FOR CHECKING ERROR HANDLING 
* CAPABILITIES THRU DECLARATIVES. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. TI-990. 

OBJECT-COMPUTER. TI-990. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 


-"-AOODAONOUBWD 


—_— —_ 


Figure 12-1. Checking Error-Handling Capabilities Through DECLARATIVES (Sheet 1 of 6) 
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12 SELECT MASTER ASSIGN TO RANDOM, '"'SEQIO."! 
13 ORGANIZATION SEQUENTIAL 

14 ACCESS SEQUENTIAL 

15 STATUS SEQ-STATUS. 

16 DATA DIVISION. 

17 FILE SECTION. 

18 FD MASTER LABEL RECORDS STANDARD. 

19 01 MST. 

20. O02 SSAN PIC X(9). 

21 O02 BADGE PIC X(7). 

22 O02 NAMEX PIC X(20). 

25 WORKING-STORAGE SECTION. 

24 01 ACTION PIC X VALUE ''' '', 

25 01 SEQ-STATUS PIC XX VALUE " ''. 

26 01 FUNCT-KEY PIC 99. 

ov 88 F1 VALUE 01. 

28 88 Command VALUE 40. 

29 01 OPEN-MODE PIC X(6) VALUE '' ''" 

30 88 OPEN-INPUT VALUE "'INPUT''. 

31 88 OPEN-OUTPUT VALUE "'OUTPUT''. 

32 88 OPEN-IO VALUE ''I-O!'. 

33 88 OPEN-EXTEND VALUE ''EXTEND". 

34 01 OPERATION PIC 99. 

35 88 OP-OPEN VALUE 01. 
36 88 OP-CLOSE VALUE O2. 
37 88 OP-READ VALUE 03. 
38 88 OP-READ-NOLOCK VALUE 04. 
39 88 OP-WRITE VALUE 05. 
40 88 OP-REWRITE VALUE 06. 
41 88 OP-UNLOCK VALUE 07. 
42 88 OP-STOP VALUE 08. 
43 01 BLNK PIC X(80) VALUE '' '''”. 

44 01 LAST-OPERATION PIC 99 VALUE 0. 

45 01 ERROR-WORD PIC X(4) VALUE '' ''. 

46 PROCEDURE DIVISION. 

47 DECLARATIVES. 

48 >0002 DECL SECTION. 

49 USE AFTER STANDARD ERROR PROCEDURE ON MASTER. 
50 >0002 DEC1. DISPLAY '"'ERROR STATUS: '' LINE 23 
51 SEQ-STATUS LINE 23 POSITION 16. 
52 

53 **x IF OPEN RETURNS "INVALID RECORD LENGTH ERROR - 97'! 
54 ** IGNORE ERROR CONDITION. FILE WILL BE OPENED. 
55 

56 >0010 IF SEQ-STATUS NOT = '"'97"' 


Figure 12-1. Checking Error-Handling Capabilities Through DECLARATIVES (Sheet 2 of 6) 
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L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M 


DEBUG PG/LN Pee ies al Bin sera) Ste: By pate todos eae Wee we Se wey wa Se Se Sera ere ee wrens Ate ae arenes 


>0028 
>002E 
>0038 


>004C 


>O04E 
>OO4E 
>O004E 
>0056 
>005C 
>0062 
>0068 
>006E 
>0076 
>O07E 
>0086 
>0090 
>0090 


>O00A0 
>O00A2 
>00A2 
>O0OAA 
>OOBC 
>O0OBC 
>00C6 
>OOCE 
>00D6 
>OO0DE 
>00E6 


>OOEE 
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CALL ''CSRERR'" USING ERROR-WORD 
DISPLAY '"DX10 ERROR: '' LINE 23 POSITION 40 
ERROR-WORD LINE 23 POSITION 54. 
DISPLAY "ENTER 'C' TO CONTINUE" LINE 24. 
ACCEPT ACTION PROMPT LINE 24 POSITION 24. 
IF ACTION = ''C"! 
DISPLAY BLNK LINE 23 
DISPLAY BLNK LINE 24 
GO TO IO-LOOP. 
STOP RUN. 
END DECLARATIVES. 
MAIN SECTION. 
MAIN-PROG. 
DISPLAY "SEQUENTIAL FILE I/0 OPERATIONS" LINE 1 ERASE. 


DISPLAY '"'01 - OPEN" LINE 2. 
DISPLAY ''02 - CLOSE" LINE 3. 
DISPLAY ''03 - READ" LINE 4. 
DISPLAY "04 - READ NO LOCK" LINE 5 


LINE 2 POSITION 40. 
LINE 3 POSITION 40. 
LINE 4 POSITION 40. 
LINE 5 POSITION 40. 


DISPLAY "05 - WRITE" 
DISPLAY "06 - REWRITE" 
DISPLAY "07 - UNLOCK"! 
DISPLAY "08 - STOP"! 
IO-LOOP. | 
PERFORM IO-OPERATIONS THRU IO-EXIT 
UNTIL OPERATION = 8 OR FUNCT-KEY = 40. 
STOP RUN. 
IO-OPERATIONS. 
DISPLAY "OPERATION CODE: '" LINE 10 POSITION 20. 
ACCEPT OPERATION CONVERT PROMPT LINE 10 POSITION 40 
ON EXCEPTION FUNCT-KEY PERFORM CHECK-EXCEPTION. 
PERFORM-OPERATION. 
IF OP-OPEN 
PERFORM GET-OPEN-MODE 
PERFORM OPEN-CODE. 
IF OP-CLOSE 
PERFORM CLOSE-CODE. 
IF OP-READ 
PERFORM READ-CODE. 
IF OP-READ-NOLOCK 
PERFORM READ-NOLOCK-CODE. 
IF OP-WRITE 
PERFORM WRITE-CODE. 
IF OP-REWRITE 
PERFORM REWRITE-CODE. 
IF OP-UNLOCK 
PERFORM UNLOCK-CODE. 


Checking Error-Handling Capabilities Through DECLARATIVES (Sheet 3 of 6) 
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103 
104 


106 
107 
108 
109 
110 


112 


DXCBL 


LINE 


146 


Figure 12-1. 
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>00F6 
>OOFC 


>0116 
>0118 
>0118 
>O11E 
>0124 


DEBUG 
>0134 
>013A 


>015C 
>015C 
>0168 
>0174 
>0180 
>018E 
>018E 
>0196 
>0196 
>01A0 
>01A8 
>01A8 
>01B2 
>01BA 
>01BA 


>01D0 


>01F4 
>O01FA 
>0208 
>0208 


>021E 


DISPLAY BLNK LINE 24. 
IF OPERATION > 0 AND OPERATION < 9 
MOVE OPERATION TO LAST-OPERATION 
ELSE DISPLAY "INVALID OPERATION" LINE 24. 
IO-EXIT. EXIT. 
GET-OPEN-MODE. 
DISPLAY BLNK LINE 14. 
DISPLAY "OPEN MODE: INPUT, OUTPUT, I-O, EXTEND" LINE 1. 
ACCEPT OPEN-MODE PROMPT LINE 14 POSITION 50 
ON EXCEPTION FUNCT-~KEY PERFORM CHECK-EXCEPTION. 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M 


PG/LN ee ee eee ee ee ee ee ee ee eee ee eae eee ee eee ee en ee ee eee ae 


DISPLAY BLNK LINE 24. 

IF NOT OPEN-INPUT AND NOT OPEN-OUTPUT AND NOT OPEN-IO 
AND NOT OPEN-EXTEND | 
DISPLAY "INVALID OPEN MODE" LINE 24 
GO TO GET-OPEN-MODE. 

OPEN-CODE. 
IF OPEN-INPUT 
IF OPEN-OUTPUT 


OPEN INPUT MASTER. 
OPEN OUTPUT MASTER. 


IF OPEN-I0O OPEN I-0 MASTER. 
IF OPEN-EXTEND OPEN EXTEND MASTER. 
CLOSE-CODE. 
CLOSE MASTER. 
READ-CODE. 


READ MASTER. 
DISPLAY MST LINE 18. 
READ-NOLOCK-CODE. 
READ MASTER NO LOCK. 
DISPLAY MST LINE 18. 
WRITE-CODE. 
DISPLAY "SSAN: "LINE 20 "'BADGE:'"' LINE 20 POSITION 2 
"NAMEX: '' LINE 20 POSITION 38. 
ACCEPT SSAN PROMPT LINE 20 POSITION 7 
BADGE PROMPT LINE 20 POSITION 27 
BADGE PROMPT LINE 20 POSITION 45 
ON EXCEPTION FUNCT-KEY PERFORM CHECK-EXCEPTION. 
DISPLAY BLNK LINE 20. 
WRITE MST. 
REWRITE-CODE. 
DISPLAY ''SSAN:'' LINE 20 "BADGE:'' LINE 20 POSITION 2 
"NAMEX: '' LINE 20 POSITION 38. 
ACCEPT SSAN PROMPT LINE 20 POSITION 7 
BADGE PROMPT LINE 20 POSITION 27 
NAMEX PROMPT LINE 20 POSITION 45 
ON EXCEPTION FUNCT-KEY PERFORM CHECK-EXCEPTION. 
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149 
150 
151 
152 
153 
154 


DXCBL 


>0242 
>0248 
>0256 
>0256 
>025C 
>025C 
>026C 


ADDRESS 


>0026 
>0026 
>002F 
>0036 
>004E 
>0050 


>0052 


>0054 


>005A 


>005C 


>OO0AC 


>OOAE 


ZZZZ2Z 


Ls 


SIZE 


0 
36 
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Error Processing 


DISPLAY BLNK LINE 20. 

REWRITE MST. 
UNLOCK-CODE. 

UNLOCK MASTER. 
CHECK-EXCEPTION. 

IF F1 OR Command GO TO IO-EXIT. 
END-OF-PROGRAM. EXIT. 


END PROGRAM. keke END OF FIL E 


R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 5 
DEBUG ORDER TYPE NAME 
FILE MASTER 
GRP 0 GROUP MST 
ANS 0 ALPHANUMERIC SSAN 
ANS 0 ALPHANUMERIC BADGE 
ANS 0 ALPHANUMERIC NAMEX 
ANS 0 ALPHANUMERIC ACTION 
ANS 0 ALPHANUMERIC SEQ-STATUS 
NSU 0 NUMERIC UNSIGNED FUNCT-KEY 
0 CONDITION-NAME F1 
0 CONDITION-NAME Command 
ANS 0 ALPHANUMERIC OPEN-MODE 
0 CONDITION-NAME OPEN-INPUT 
0 CONDITION-NAME OPEN-OUTPUT 
0 CONDI TION-NAME OPEN-IO 
0 CONDITION-NAME OPEN-EXTEND 
NSU 0 NUMERIC UNSIGNED OPERATION 
0 CONDITION-NAME OP-OPEN 
0 CONDITION-NAME OP-CLOSE 
0 CONDITION-NAME OP-READ 
0 CONDITION-NAME OP-READ-NOLOCK 
0 CONDITION-NAME OP-WRITE 
0 CONDI TION-NAME OP-REWRITE 
0 CONDITION-NAME OP-UNLOCK 
0 CONDITION-NAME OP-STOP 
ANS 0 ALPHANUMERIC BLNK 
NSU 0 NUMERIC UNSIGNED LAST-OPERATION 
ANS 0 ALPHANUMERIC ERROR-WORD 


Figure 12-1. Checking Error-Handling Capabilities Through DECLARATIVES (Sheet 5 of 6) 
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Errer Proeessing 


READ ONLY BYTE SIZE & >0504 
READ/WRITE BYTE SIZE = >0120 
OVERLAY SEGMENT BYTE SIZE = >0000 
TOTAL BYTE SIZE = >06F4 
0 ERRORS 
0 WARNINGS 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M 


PROGRAM USING COUNT 
CSREER 1 


6 


Figure 12:1. Checking Error-Handiing Capabilities Through DECLARATIVES (Sheet 6 of 6) 
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13. 
Optimizing Run-Time Performance 


13.1 GENERAL 


By using certaln coding techniques, you can optimize the performance of COBOL programs. To 
understand why certaln techniques are desirable and others are Impossible, you need an overview 
of the compller and run-time structure. 


The COBOL package contains a one-pass compiler that produces object code In a format called a 
POP. Because the POP format Is especially tallored to the COBOL environment, object code pro- 
duced by the complier uses space much more efficiently than does machine language object 
code, This COBOL structure Is well sulted to the minicomputer environment where task space Is 
critical. 
However, since the complierin this package only passes over the source once, global optimization 
techniques cannot be used to reduce the size of the object. Instead, you can optimize programs 
through ceding techniques that decrease the size of the object generated or Increase speed of 
execution. These techniques fall Into the following categories: 

¢ Object size considerations 

e Arithmetic operations 

e Control operations 

e Meve operations 

e |/O operations 
Future changes In the software may change some of the following performance considerations 
and techniques. 
13.2 OBJECT SIZE CONSIDERATIONS 


One way of optimizing the performance of a T| 880 COBOL program Is to decrease the size of the 
compller-generated object by using space-efficient code whenever possible. 


Each paragraph and section which does not end In an unconditional GOTO Increases object size 
by at least one word. Avold the PERFORM PARA:NAME THRU PARA-EXIT when the THRU con: 
struct Is unnecessary. In the following example, PERFORM PARA-NAME achleves the same result 
more efflelently. 
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EXAMPLE 


Use: 
PERFORM PARA-NAME. 


PARA-NAME. 
MOVE. 
ADD . 
NEXT-PARA. 
Rather than: 


PERFORM PARA-NAME THRU PARA-EXIT. 


PARA-NAME. 

MOVE. 

ADD . 

PARA-EXIT. 

EXIT. 
NEXT-PARA. 


13.3 ARITHMETIC OPERATIONS 


The following statements illustrate ways to optimize code when using arithmetic statements. 


e Use binary (COMP-1) data definitions. Binary is 2.5 to 10 times faster than COMP or 
DISPLAY. 


e Do not mix binary and nonbinary operands because mixing slows arithmetic operations. 
Use constant data items or hexadecimal literals instead of decimal literals with 
COMP-1. 
EXAMPLE 
With: 


7¢ XYZ PIC 9(5) COMP-1. 
77 ONEX PIC 9(5) COMP-1 VALUE 1. 


Use: 
ADD ONEX TO XYZ. 


Rather than: 


ADD 1 TO XYZ. 
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The reason for the above is that all decimal literals are stored as type DISPLAY. Arithmetic is per- 
formed in the mode of the highest operand in the hierarchy: 


3 DISPLAY 
2 COMP 
1 COMP-1 


The following example provides further information regarding the handling of arithmetic oper- 
ations. 


EXAMPLE 
With: 


7? XYZ PIC 9(5)V9(3) COMP. 
7? Z2ZZ PIC 9(5) COMP-1. 


Use: 
ADD 1, ZZZ GIVING XYZ. 


The above requires conversion of ‘‘ZZZ”’ to display, adds display ‘‘1” and ‘‘ZZZ’’, converts the 
answer to COMP, and places it in “XYZ”’. 


The following additional facts should be noted: 
e Rounding increases the execution time of an instruction by 6 to 22 percent. 


e Within a given picture size, the magnitude and sign of the operands have minimal effect 
on execution times. , 


e Increasing picture size of COMP or COMP-1 slows down execution by 1.5 to 5 percent 
per character. 


13.4 CONTROL OPERATIONS 
The logical sequence of program flow can be made more efficient in the following ways: 


e Use “PERFORM <some-function> LIMIT TIMES” rather than a counter loop. 
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EXAMPLE 
Use: 


PERFORM LOOP LIMIT TIMES. 
LOOP. 
<some funetion> 


Rather than: 


MOVE 1 TO K. 
LOOP, 
<some=funetion> 
ADD 1 TO K. 
IF K NOT # LIMIT GO TO LOOP. 


e Use ‘PERFORM <some-functlon> LIMIT TIMES” rather than “PERFORM:-VARYING”’ 
unless the variable ls used for subseripting In the procedure. 


EXAMPLE 


Use: 
PERFORM XYZ VARYING K FROM 1 BY 
1 UNTIL K > 30. 


XYZ, MOVE XM (K) TO L. 
Rather than: 


MOVE 1 TO K. 
PERFORM XYZ 30 TIMES. 


a an ome fh > “yk , PA pe SNe nny yen. 
8 


XYZ. MOVE XM (K) TO L. 
ADD 1 TO K. 


e Use ‘GO TO DEPENDING ON” rather than any N-WAY-BRANCH structure with an IF 
statement, whenever N = 3. For example: 
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EXAMPLE 


Use: 
GO TO Li, L2, L3, L&4 DEPENDING ON J. 


Rather than: 
IF J21 GO TO Li. 
IF J#2 GO TO Lé. 
IF J#3 GO TO L3. 
IF J#4 GO TO L4, 


e Use modular programming techniques as permitted by the CALL statement. CALLs are 
efficient. 


e When IF statements are mixed with COMP, COMP:1, and/or DISPLAY, more time Is 
required. Avold statements such as |F COMP1-ITEM = 4GOTOMN. 


e Avoid using CONTROL when possible. 
EXAMPLE 


WIth: 


77 K PIC 9¢5) COMP=1. 
01 XYZ. 
03 MMM PIC 9(5)V99 OCCURS 10. 
Use: 
MOVE ZEROS TO XYZ. 
Rather than: 
"-BEREORM ZONK VARYING K FROM 1 
BY 1 UNTIL > 10. 
ZONK. MOVE O TO MMM (CK), 


e Combine DISPLAY statements Into one literal to reduce the Iikellhood of swapping. 
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EXAMPLE 
Use: 


DISPLAY ''DATE OF BIRTH ~- MO: DA: YRe OS 


Rather than: 
DISPLAY '"'DATE OF BIRTH" LINE 17. 
DISPLAY ''MO!' LINE 17 POSITION 17. 
DISPLAY '"'DA"' LINE 17 POSITION 23. 
DISPLAY "YR! LINE 17 POSITION 29. 


e Use the DISPLAY/ACCEPT statement once instead of repeating the statement several 


times. 
EXAMPLE 

Use: 
DISPLAY NAME LINE 1 POSITION 1 
SEX LINE 1 POSITION 23 
DOB-MO LINE 1 POSITION 25 
DOB-DA LINE 1 POSITION 28 
DOB-YR LINE 1 POSITION 31. 

Rather than: 
DISPLAY NAME LINE 1 POSITION 1. 
DISPLAY SEX LINE 1 POSITION 23. 
DISPLAY DOB-MO LINE 1 POSITION 25. 
DISPLAY DOB-DA LINE 1 POSITION 28. 
DISPLAY DOB-YR LINE 1 POSITION 31. 


13.5 MOVE OPERATIONS 


Efficiency in your use of the MOVE statement can be enhanced by applying the following 
suggestions: 


e Move larger, rather than smaller, groups of characters whenever possible. The larger the 
group moved, the shorter the time used per character. Moving a 1000-character group is 
30 times faster than moving a single character 1000 times. 


e Use the MOVE statement for moving one source to multiple destinations. The instruc- 
tion need not be interpreted multiple times, nor does the source operand need to be set 
up multiple times. 
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EXAMPLE 
Use: 
MOVE 0 TO A, B, C. 
Rather than: 
MOVE O TO A. 
MOVE O TO B. 


MOVE 0 TO C. 


° Use an alphabetic MOVE statement in preference to numeric or ASCII string moves 
except with very small ASCII strings. 


e When performing multiple moves, combine literals and move to a group area. (Literals 
can be combined; data items cannot be combined.) 


EXAMPLE 
With: 
01 DATES 
02 MO PIC XX. 
02 ODA PIC XX. 
02 YR PIC XX. 
Use: 


MOVE ''042545"' TO DATES. 
Rather than: 


MOVE ''04'"' TO MO. 
MOVE ''25'"' TO DA. 
MOVE '"'45'"' TO YR. 
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13.6 I/O OPERATIONS 


The following considerations relate to the response time In performing data |/O operations to a fille 


or device, 


When possible execute: 


= aREAD and notaREAD... INTO. READ Is 30 percent faster. If INTO Is required, It 
ls 20 percent faster than a READ followed by a MOVE. 


= aWRITE and notaWRITE... FROM. WRITE Is 30 percent faster unless a MOVE |s 
required to complete the FROM. 


Record-level locking adds only about 5 percent to the I/O operation. 


Increasing a file’s blocking size (physical record size) beyond a factor of about 10 has a 
minimal effect. Always use a multiple of the ADU size on the disk as the block size. 


The following statements describe ways to enhance the response time In performing I/O oper: 
atlons to key Indexed filles (KIFs): 


13-8 


lf you make numerous Insertions, occasionally rebulld KIFs to decrease access time. 


When bullding a KIF, specify the key that will be accessed most often as the primary 
key. This will produce a file structure with the fastest sequential access time for that 
key, 


Keep the number of keys In a fille small to keep down the tlme needed to bulld the file. 
Note: the number of keys In a file has little effect on the access time for reading. 


Keep keys short to reduce access time. 

When possible, use sequential Input to bulld files, Files bullt from seduntlai Input are 
smaller than filles bullt by random record Insertions, and require less access time. Also, 
the time needed to bulld a KIF from a sequential fille sorted on the primary key Is less 
than for a randomly ordered fille. 


When possible, keep the sequential Input file In sort order (as when the Input file ls the 
result of CKS), This reduces the time needed to bullid the KIF. 
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Keycap Cross-Reference 


Generle keycap names that apply to all terminals are used for keys on keyboards throughout this 
manual. This append|x contains specific keyboard Information to help you Identify Individual keys 
on any supported terminal. For Instance, every terminal has an Attention key, but not all Attention 
keys look alike or have the same position on the keyboard. You can use the terminal Information In 
this appendix to find the Attentlon key on any terminal. 


The terminals supported are the 931 VDT, 911 VDT, 915 VDT, 940 EVT, the Business System 
terminal, and hard-copy terminals (Including teleprinter devices). The 820 KSR has been used as a 
typleal hard-copy terminal. The 915 VDT keyboard Information Is the same as that for the 911 VDT 
except where noted In the tables. 


Appendix A contains three tables and keyboard drawings of the supported terminals. 


Table A-1 lists the generic keyeap names alphabetically and provides Illustrations of the 
corresponding keyeaps on each of the currently supported keyboards. When you need to press 
two keys to obtain a function, both keys are shown In the table. For example, on the 940 EVT the 
Attentlon key function Is activated by pressing and holding down the Shift key while pressing the 
key labeled PREV FORM NEXT. Table A-1 shows the generic keycap name as Attention, and a 
corresponding Illustration shows a key labeled SHIFT above a key named PREV FORM NEXT. 


Function keys, such as F1, F2, and so on, are considered to be already generic and do not need 
further definition. However, a function key becomes generic when It does not appear on a certain 
keyboard but has an alternate key sequence. For that reason, the function keys are Included In the 
table. 


"” MuttBle key sequences at s¥fiulténeous ReystroRes vah also Be described In generic Reycap 


names that are applicable to all terminals. For example, you use a multiple key sequence and 
simultaneous keystrokes with the log-on function. You log on by pressing the Attention key, then 
holding down the Shift key while you press the exclamation (!) key. The same Information In a table 
appears as Attention/(Shift)!, 

Table A-2 shows some frequently used multiple key sequences. 


Table A-3 lists the generic names for 911 keycap designations used In previous manuals. You can 
use this table to translate existing documentation Into generic keycap documentation. 


Figures A-1 through A-5 show diagrams of the 911 VDT, 915 VDT, 940 EVT, 831 VDT, and Business 
System terminal, respectively. Figure A-6 shows a diagram of the 620 KSR. 
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Table A-1. Generic Keycap Names 










Business 
. 911 940 931 820' 
Generic Name System 
Genet Home ideal all ded Terminal uaa 
Alternate 
None None 


Mode 





Back Tab None 


Command? 


Control CONTROL 







Delete 
Character 


Erase Field 


Notes: 


None 


'The 820 KSR terminal has been used as a typical hard-copy terminal with the TPD Device Service 
Routine (DSR). Keys on other TPD devices may be missing or have different functions. 


?0n a915 VDT the Command Key has the label F9 and the Attention Key has the label F10. 
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Table A-1. Generic Keycap Names (Continued) 


Business 
911 940 931 20' 
Generic Name System 
~~ VDT Terminal 
INPUT [= 





Forward Tab 


wn 
nO 


“TI 
(et) 


Ti 
Ba 


z 
S 
ro) 
< 
—_s 


'The 820 KSR terminal has been used as a typical hard-copy terminal with the TPD Device Sernice 
Routine (DSR) Keys on other TPD devices may be missing or have different functions 
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Table A:1. Generic Keycap Names (Continued) 





Netes: 


'Fhe 820 KSA terminal has been used as a typical Rard-eepy terminal wilh the TPO Device Service 
Reutine (BSA). Keys en ether TPB devices may be missing or Rave different funetiens. 
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Table A:1. Generic Keycap Names (Continued) 


<a Sa ee ee Se See eS 


Initlallze Input 


Netes: 
'Fhe 820 KSA terminal has been used as a lypical hard-copy terminal with the TPB Device Senice 
Routine (BSA). Keys on ether TPB devices may be missing or Rave different functions 
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Table A-1. Generic Keycap Names (Continued) 









Business 

40 

Generic Name vee System ee 
Terminal 


Insert 
Character 










Next 
Character 





Next Field 


SH 





Next Line 


Previous 
Character 
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Previous Field 





Notes: 
‘The 820 KSR terminal has been used as a typical hard-copy terminal with the TPD Device Service 
Routine (DSR). Keys on other TPD devices may be missing or have different functrons 
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Table A-1. Generic Keycap Names (Continued) 


Business 
Generic Name System 
Terminal 


Previous Line 


Uppercase 
Lock 





Notes: 


‘The 820 KSR terminal has been used as a typical hard-copy terminal with the TPD Device Service 
Routine (DSR). Keys on other TPD devices may be missing or have different functions. 


>The keyboard is typamatic. and no repeat key is needed. 
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Table A-2. Frequently Used Key Sequences 


Function Key Sequence 
Log-on Attention/(Shift)! 
Hard-break Attention/(Control)x 
Hold Attention 
Resume Any key 


Table A-3. 911 Keycap Name Equivalents 


911 Phrase Generic Name 
‘Blank gray | Initialize Input: - 
Blank orange Attention 
Down arrow Next Line 
Escape Exit 
Left arrow Previous Character 
Right arrow Next Character 
Up arrow Previous Line 
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DATA ENTRY 


Figure A-1. 911 VDT Standard Keyboard Layout 
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Figure A-2. 915 VDT Standard Keyboard Layout 
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Figure A-3. 940 EVT Standard Keyboard Layout 
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Figure A-4. 931 VDT Standard Keyboard Layout 
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Figure A-5. Business System Terminal Standard Keyboard Layout 
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Figure A-6. 820 KSR Standard Keyboard Layout 
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Appendix B 
COBOL Compiler Error Messages 


B.1 USER ERROR MESSAGES 


As source constructs are scanned, they are checked for syntax and semantic errors. If an error 
interrupts the scanning, text is ignored until a recovery point is found and a resume message is 
printed. Recovery points are chosen to minimize the amount of unanalyzed text without producing 
irrelevant error messages. A warning message referencing the appropriate undermark ($ in the 
examples in this appendix) indicates the point at which scanning resumes. In any case, the con- 
structs at fault are undermarked and error messages are listed when the source line is printed. The 
error message includes either Es or Ws, indicating error or warning. For example, 


004030 O02 STOCK PIC 9(16)PPP COMPUTATIONAL. 
$ 
1) PICTURE *E*E*xExExExExExExExExExExExEx Ex Ex Ex Ex Ex EX Ex EXE XEXEXEXEXEXE 


The 1 at the beginning of the error message in the preceding example indicates that the first under- 
mark from the left (the only undermark in this example) indicates the position at which the error 
was identified. The message PICTURE indicates invalid PICTURE syntax (semantic number size). 
The string of alternating asterisks and Es identifies it as an error message. This error did not inter- 
rupt the scan of the source statement. 


The following is an example of an error that interrupted the scan: 


005040 02 PART PIC X(4BX(10)) SYNC. 
$ $ 


1) SYNTAX *E*E*xE*xE*ExExExExExExExEx Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex EX Ex EXE XEXEXEXE 
2) SCAN RESUME *W* WWW WW % WW ld WW Wo la oe WW de UW dd de LW de LW WY 


The 1 at the beginning of the first message specifies that the first undermark from the left indi- 
cates the position at which the error was identified. The message SYNTAX indicates a syntax 
error. The string of alternating asterisks and Es identifies it as an error message. The 2 at the 
beginning of the second message indicates that the second undermark is associated with this 
message. The message SCAN RESUME indicates that the scan of the statement resumed at the 
second undermark (the S in the keyword SYNC). The alternating asterisks and Ws identify the 
message as a warning. 


Global errors such as undefined paragraph names and illegal control transfers are listed with the 
program summary at the end of the source listing. The following shows a program summary error 
message. 


VALUE ERROR *E*E*E*xExExExExExExExExExEx*ExXE*XE DATA-NAME 


The message VALUE ERROR indicates that the data item listed to the right has been assigned a 
value which is too large. The alternate asterisks and Es identify the message as an error message. 
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The error messages described in this paragraph are printed in the compiler listing. Figure B-1 
shows alisting that includes errors and error messages. Table B-1 lists the error messages. 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 2 
LENE. *DEBUG °PG/EN: (Ais c(B edit ete oS cence rate ei decreed hte Sink eter Bie Scale wee, Garde cacao ees 


1 IDENTIFICATION DIVISION. 
2 PROGRAM-ID. 
3 TI-DATA-TEST. 
4 ENVIRONMENT DIVISION. 
5 CONFIGURATION SECTION. 
6 SOURCE-COMPUTER. 
0 TI-990-10. 
8 OBJECT-COMPUTER. 
$ 
1) SYNTAX *E*xE*E*E*xE*xExExExExExExExExEx Ex ExEx EXE x Ex EX EXEx EX EXE XEXEXEXEXEXE 
9 | TI-990-10. 
10 INPUT-OUTPUT SECTION. 
$ 
1) SCAN RESUME %& WWW Wi WW % Wo Wd WW ld oe Ua Ua We da Wd We de We dd edd edd ed 9 Lo oe Uo WW 
11 FILE-CONTROL. 
12 SELECT CARD-FILE 
13 ASSIGN TO INPUT, ''CARDF", 
14 FILE STATUS IS CARD-STATUS. 
15 SELECT DISC-FILE-RAN-REL 
16 ASSIGN TO RANDOM, "'DISCRR" 
17 FILE STATUS IS OUTPUT-STATUS 
18 ORGANIZATION IS RELATIVE 
19 ACCESS MODE IS RANDOM 
20 RELATIVE KEY IS RRKEY. 
21 DATA DIVISION. 
22 FILE SECTION. 
23 FD CARD-FILE 
24 RECORD CONTAINS 10 TO 90 CHARACTERS 
25 BLOCK CONTAINS 512 CHARACTERS 
26 LABEL RECORDS ARE OMITTED. 
27 01 CARD-RECORD. 
28 O02 IN-KEY PICTURE 999. 
29 O02 FILLER PICTURE X(77). 
30 FD DISC-FILE-RAN-REL 
31 LABEL RECORDS ARE STANDARD 
32 VALUE OF LABEL IS '"'RAN-REL". 
33 01 RAN-REL-RECORD PICTURE X(80). 
34 WORKING-STORAGE SECTION. 
35 7? CARD-STATUS PICTURE X(03). 
$ 
1) SYNTAX *E*E*E*E*EXExExExExExExExExEx Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex EXE 
36 (7? QUTPUT-STATUS PICTURE X(02). 
$ 


Figure B-1. COBOL Compiler Listing With Error Message Examples (Sheet 1 of 3) 
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1) SCAN RESUME WWW WW % Wd % WW Wo bal la Ua We Ue dd ede Ua eV ed We Ue Ue Ma LU 
37 7? ERROR-VALUE PICTURE X(02) VALUE "'ERROR". 
38 (7? COUNT PIC 9(05). 
39 7? ERR-PIC PICTURE $(05). $9. 
$ 
1) PICTURE *E*ExExExExExE*xExEx Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex EXE xe ExXEXEXEXEXEXEXEXEXE 
1) SCAN RESUME WWW Wo ld % WW % Wo Wo WW oe Aa He Ua a UW 9 We Un edd ee Ue Ua ee Le WW 
40 (? PIC-USE PICTURE X COMP-1. 
$ 
1) PICTURE-USAGE CLASH *E*E*E*E*xExExExExExEx Ex Ex ExExEx Ex EX EXEXEXEXEXEX EXE 
41 01 GRP-AREA VALUE IS '"'GROUP VALUE". 
42 02 VALUE-1 PICTURE X(14). 
43 02 VALUE-2 REDEFINES VALUE-1 PIC X(20). 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 3 
LINE DEBUG PG/LN Pie aia Be aia te esters weve nw’ (cd else arian ecetiate: Gia nbd aed: brane tate Dae arene Sane ace a eae 
44 02 VALUE-3 PICTURE 9(4) VALUE 75. 
$ 
1) GROUP CLASH *E*E*xE*xExE*xExExExExExEx Ex Ex Ex Ex Ex Ex Ex Exe Ex Ex Ex Ex Ex Ex Ex EXE XE 
45 PROCEDURE DIVISION. 
46 >0000 INIT-000. 
47 >0000 OPEN INPUT CARD-FILE. 
$ $ 
1) REFERENCE TYPE *E*xExExExE*xExExExExExExExExEx Ex Ex Ex Ex Ex Ex Ex Ex EX EXE XEXEXE 
2) SCAN RESUME % WWW Wd % WW % WW WW A WW Wd oe ba oe Ua UW ee Ud Ud Ua ee We de Ud Ud 9M ee Wed Ud 9A We 
48 >0002 OPEN OUTPUT RAN-REL-RECORD. 
$ $ 
1) FILE NAME REQUIRED *E*E*E*xExExExExExExExExExExEx Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex 
2) SCAN RESUME * WW WW WW % Wo Wo ba oe WW WW oe ba WW Ud Un We dd Ue Ud Un ee dd Un ee Ud Mn We Ud We 
49 >0004 ALTER INIT-000 TO END-RUN. 
50 >0006 PERFORM ALPHA-PROC. 
51 >0008 GO TO ALPHA-PROC. 
52 >000C END-RUN. 
53 >000C MOVE 5.8 TO OUTPUT-STATUS. 
$ $ 
1) MOVE *E*xExExExExExExExExExEx Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex Ex EX Ex EX EXE XE 
2) SCAN RESUME *& WWW Wd WW Wd WW Wo ba oe Ua We bd ed Ud dU Ud ed Ud dU WW 
54 END PROGRAM. 
RESERVED WORD CONFLICT *W*W*W*W*W*W*WeWeWeWeWeW COUNT 
ILLEGAL ALTER *E*E*E*E*xE*xE*ExExExExExExExExExExE INIT-000 
END-RUN 
ILLEGAL PERFORM *E*E*E*E*xE*xExExXEXEXE*XEXE*XEXEXEXE ALPHA-PROC 
UNDEFINED PROCEDURE *E*E*E*ExExExExExExExExExExE ALPHA-PROC 
RECORD SIZE ERROR *E*xE*xExE*E*xExExExExExExExExE*E CARD-FILE 


Figure B-1. 
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VALUE ERROR *E*E*E*xE*xExExExExExEx Ex Ex Ex Ex EX EXE XE 


REDEFINES ERROR *E*E*E*EXE*xEx Ex EX Ex Ex EX EXEXEXEXE 


ERROR-VALUE 


VALUE-2 


STATUS ERROR *E*E*E*E*XE*ExXEx*E*EXEXExXEXEXEXE*XE*E CARD-FILE 


RELATIVE KEY ERROR *E*E*E*XE*E*EXEXEXEXEXEXEXE*E DISC-FILE-RAN-REL 


READ ONLY BYTE SIZE = 
READ/WRITE BYTE SIZE = 
TOTAL BYTE SIZE = 

16 ERRORS 


¢ WARNINGS 


Figure B-1. COBOL Compiler Listing With Error Message Examples (Sheet 3 of 3) 


Table B-1. 


Message 
ACCESS CLASH 


BLANK WHEN ZERO 


CLASS 


COPY 


CORRESPONDING 


DATA OVERFLOW 


DATA TYPE 

DEVICE CLASH 

DEVICE TYPE 

DOUBLE DECLARATION 


DOUBLE DEFINITION 
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Cause 


Nonsequential access given for sequential file. 


BLANK WHEN ZERO clause given for nonnumeric or 
group item. 


Referenced data type invalid for this form of class test. 


COPY statement failed because of permanent error 
associated with the undermarked text-name. 


The referenced item has no subordinate items for 
CORRESPONDING operation. 


The data area (working storage and literals) is larger 
than 65,535 bytes long. 


The data type is invalid for this reference. 

Random characteristics givento nonrandom device. 
OPEN or CLOSE mode inconsistent with device type. 
Multiple declaration of a file or identifier attribute. 


Multiple definition of an identifier. 
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Table B-1. 


Message 


DUPLICATE 


FILE DECL ERROR 


FILE NAME ERROR 


FILE NAME REQUIRED 


FILE RECORD KEY ERROR 


FILE RECORD SIZE ERROR 


FILE STATUS ERROR 


FILE TYPE 


FILLER LEVEL 


GROUP CLASH 


GROUP VALUE CLASH 


IDENTIFIER 
ILLEGAL ALTER 
ILLEGAL PERFORM 


INVALID ID 


INVALID PARAGRAPH 
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COBOL Compiler User Error Messages (Continued) 
Cause 


Warning only. Multiple USE procedure declared for 
same function. 


Error in file declaration. 


Error in defining variable for external file pathname 
(must be ANS or GRP). 


File name not given as reference in I/O verb. 


The referenced file name has a RECORD KEY that is 
incorrectly qualified or that is not defined as adata item 
of the alphanumeric category within a record-descrip- 
tion-entry associated with that file name. 


The referenced file name has a declared record size that 
either conflicts with the actual record description, isa 
relative organization file with variable length records, or 
is odd length. 


The referenced file name has a status item that is either 
incorrectly qualified, not defined in the WORKING- 
STORAGE SECTION, or not a two-character alpha- 
numeric item. 


Access or organization of file conflicts with under- 
marked statement. 


A nonelementary FILLER item is declared. 


USAGE or VALUE clause of group member conflicts 
with same clause for group. 


An item subordinate to a group with the VALUE IS 
clause is described with the SYNCHRONIZED, JUSTI- 
FIED, or USAGE (other than USAGE IS DISPLAY) clause. 


Identifier reference is incorrectly constructed, or the 
identifier has an invalid or double definition. 


An ALTER statement references an unalterable para- 
graph, or violates the rules of COBOL segmentation. 


A PERFORM statement references an undefined or 
incorrectly qualified paragraph, or the reference vio- 
lates the rules of COBOL segmentation. 


An invalid identifier is referenced (check declaration). 


An invalid paragraph name is referenced. 
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Table B-1. COBOL Compiler User Error Messages (Continued) 


Message 


JUSTIFY 


KEY REQUIRED 


LABEL 


LEVEL 


LINKAGE 


LITERAL VALUE 
MOVE 
MUST BE INTEGER 


MUST BE PROCEDURE 


MUST BE SECTION 


NAME ERROR 


NESTING 
NOT IN REDEFINE 


OCCURS 


OCCURS-VALUE CLASH 
PICTURE 


PICTURE-BWZ CLASH 


PICTURE-USAGE CLASH 


PROCEDURE INDEPENDENCE 


Cause 


JUSTIFY clause given in conflict with other attributes. 


Relative key not declared for random access relative 
file, or record key not declared for KIF. 


Presence or absence of label record conflicts with 
device standards. 


Level number given is invalid either intrinsically or 
because of position within a group. 


An identifier in the USING clause of the PROCEDURE 
header is not alinkage item, or astatement references a 
linkage item not Subordinate to an identifier in the 
USING clause of the PROCEDURE header. 

Literal value given is incorrect in context. 

Operands of MOVE verb specify an invalid move. 
Context requires an integer. 

Context requires procedure name either as reference or 
definition, or the reference must be a nondeclarative 
procedure name. 


Context requires procedure name to be section. 


The referenced file name has an invalid external file 
name declaration. 


Illegal nesting of condition that is not an IF condition. 
VALUE IS clause given in REDEFINES item. 


OCCURS clause given at invalid level (only three nested 
levels of occurs acceptable). 


VALUE IS and OCCURS in effect for the same item. 
Invalid picture syntax. 


BLANK WHEN ZERO clause given when picture con- 
tains asterisk character. 


USAGE clause or implied usage conflicts with usage 
implied by picture. 


PERFORM given for procedures in independent seg- 
ments not in the current segments. 
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Table B-1. COBOL Compiler User Error Messages (Continued) 


Message 


PROGRAM OVERFLOW 


RECORD KEY 


RECORD REQUIRED 


REDEFINES 


REDEFINES ERROR 


REFERENCE INVALID 


RELATION 


RELATIVE KEY 


RELATIVE KEY ERROR 


RESERVED WORD CONFLICT 


SCAN RESUME 


SECTION CLASH 


SEGMENT 


SEPARATOR 


SIGN 
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Cause 


The instruction area is larger than 32,767 bytes long. 


Record key declared for other than an indexed organi- 
zation file, or a START statement KEY phrase refer- 
ences a data item not aligned on the declared leftmost 
byte of the key. 


File record must be referenced for WRITE or REWRITE 
verb. 


REDEFINES given within an OCCURS or not redefining 
the last allocated item. 


The referenced data-name redefines an item that does 
not have the same number of character positions and 
that is not level 01. 


Reference given is not valid in context. 
Operands of relation test are incompatible. 


Relative key declared for other than a relative organi- 
zation file, ora START statement key phrase references 
a data item other than the declared key. 


The referenced file name has a RELATIVE KEY that is 
incorrectly qualified, is defined in a record description 
associated with that file name, or is not defined as an 
unsigned integer. 


A COBOL reserved word or symbol is given where a user 
word is required. In the summary, this is only a warning 
about an ANSI COBOL reserved word that is not a TI 
COBOL reserved word. 


Warning only. Scanning was terminated at previous 
error message and resumes at undermarked character. 


A VALUE IS clause appears in the FILE or LINKAGE 
section. 


Warning only. Segment number given in an independent 
segment is not the same as the current segment or the 
number of new independent segments. 


Warning only. Redundant punctuation. 


SIGN clause given in conflict with usage and picture. 
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Table B-1. 


Message 


SIZE 


SIZE ERROR 


STATUS ERROR 


SUBSCRIPT 


SYNC 


SYNTAX 


UNDEFINED 


UNDEFINED PROCEDURE 


USE REQUIRED 


USING COUNT 


VALUE 


VALUE ERROR 


VARIABLE RECORD 


COBOL Compiler User Error Messages (Continued) 


Cause 


Warning only. Size of data referenced not correct for 
context. 


Declared size of record conflicts with the present 
reference. 


The referenced file name has a status item which is 
incorrectly qualified, is not defined in the WORKING- 
STORAGE SECTION, or is not a two-character alpha- 
numeric item. 


Incorrect number of subscripts or indexes given for a 
reference. 


Synchronized clause given for a group item. 


Character or reserved word given is incorrect for 
context. 


File referenced in FD paragraph was not defined. 


A GO TO statement references an undefined or incor- 
rectly qualified paragraph. 


Compiler expects a USE statement. This error may indi- 
cate that no END DECLARATIVES statement is present 
in the program. 


Warning only. The item count in the USING list of a 
CALL statement is different from that of the first refer- 
ence to the same program name. 


VALUE IS clause given in conflict with other declared 
attributes. 


Value given in VALUE IS required truncation of nonzero 
digits. 


Warning only. A READ...INTO references a file with 
variable record sizes. 


B.2 SYSTEM ERROR MESSAGES 
Other types of errors prevent proper execution of the COBOL compiler. When any of these errors 


occur, the system displays an error message and terminates the attempt to execute the compiler. 
Table B-2 lists these messages. 
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Table B-2. COBOL Compiler System Error Messages 


Message 


COBOL COMPILER 
ABNORMAL TERMINATION 


COBOL COMPILER BUG 


COBOL COMPILER FATAL 
ERROR-END VECTOR TAKEN 


COBOL COMPILER OVERLAY 
LOAD ERROR | 


COBOL COMPILER TCA 
ERROR 


COBOL COMPILER TLF 
ERROR 

COPY FILE CLOSE ERROR 
COPY FILE OPEN ERROR 


COBOL POINTER OVERFLOW 


COBOL PROGRAM OVER- 
FLOW 


FATAL SYNTAX ERROR OR 
NULL PROGRAM 


I/O ERROR 


INVALID COMPILE OPTION 
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Meaning 


The compiler has unsuccessfully completed 
creation of the object module from the sup- 
plied source program. 


The compiler was unable to complete the 
compilation due to a problem internal to the 
compiler. 


The operating system has detected a fatal 
error and has terminated the compile 


An attempt to load a compiler overlay 
resulted in an error. 


The system has detected an error condition 
in the Task Communication Area (TCA). 


The system has detected an error condition 
in the Terminal Local File (TLF) processing. 


An attempt to close the copy file resulted in 
an error. 


An attempt to open the copy file resulted in 
an error. 


Program too large; has too many variable 
names. 


Insufficient memory space is available for 
storing the program. 


A syntax error in the source code resulted in 
a fatal error for the compiler. 


An error has occurred with one of the I/O 
devices. 


One or more of the selected compiler option 
characters entered for this compilation is 
not adefined option character. 


Recovery 


Refer to listing to deter- 
mine reason. 


Refer problem to system 
programmer. 


Refer to the DX10 Mes- 
Sages and Codes Refer- 
ence Manual for possible 
errors. | 


Refer problem to 
programmer. 


system 


Refer problem to 
programmer. 


system 


Refer problem to 
programmer. 


system 


Refer problem to 
programmer. 


system 


Refer problem to system 
programmer. 


Make program smaller. 


Program exceeds __ task 
addressability. Program 
area must be smaller. 


Examine source statement 
and correct syntax. Check 
for blank line at beginning 
or end of source code. 


Use system error code to 
determine reason for error. 


Correct invalid option char- 
acter. (Compiler will func- 
tion properly without 
correction, ignoring the 
invalid character.) 
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Table B-2. COBOL Compiler System Error Messages (Continued) 


Message 


LISTING FILE ERROR 


MEMORY REQUESTED 


EXCEEDS SYSTEM CAPACITY 


OBJECT FILE ERROR 


ROLL SPILL FILE ERROR 


SOURCE FILE ERROR 


TOO MANY NESTED 
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Meaning 


An error has occurred while transferring data 
to the listing device. 


The memory resources of the system are not 
sufficient to provide the quantity of memory 
required. 


An error has occurred while transferring data 
to the object file. 


An error has occurred during I/O to the ROLL 
SPILL file. 


An error has occurred while transferring data 
from the source file. 


A COPY statement has been read that would 
result in more than five nesting levels. 


INFORMATIVE MESSAGES 


Recovery 


Use system error code to 
determine reason for error. 


Allow other tasks to termi- 
nate prior to recompiling or 
delete the X option. 


Use system error code to 
determine reason for error. 


System buffer size is possi- 
bly too small; refer problem 
to asystem analyst. 


Use system error code to 
determine reason for error. 


Modify source program to 
limit number of nesting 
levels of COPY statements 
to five orless. 


Table B-3. COBOL Compiler Informative Messages 


Message 


INFO-ROLL xxxx 
SPILLING TO DISK 


Cause 


The rolls used by the compiler have exceeded the available 
memory for the task. The roll indicated has been moved to 
disk. An increase in compile time will occur after spilling is 
performed. This informative message has been added to 
assist in producing programs with optimal compile times. 
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COBOL Run-Time Error Messages 





COBOL provides two types of run-time error messages. Table C-1 lists both types. The first type is 
related to object code resulting from incorrect source statements. Messages of this type are 
displayed in the following format: 


COBOL (ERROR MESSAGE) AT: xxyyyy IN nnnnnn 


The ERROR MESSAGE portion defines the error and is one of the messages listed in Table C-1. 
The xx portion represents the segment number of the segmented module, and the yyyy portion 
represents the address of the statement at which the error was detected. The address corresponds 
to the address shown in the DEBUG column of the compiler listing. The nnnnnn is the first six 
characters of the program name, as specified in the PROGRAM-ID statement. 


The second type of run-time error messages relates to system errors. The system displays the 
message and terminates the execution attempt. 


The message is as follows: 


Explanation: | 
The object file contains an end-of-file prior to data required for executing the program. 


User action: 
Verify that the correct object file was read and that it was correctly positioned. If necessary, 
recompile. | 


The run-time error message file is installed as .S$MSG$.COBOL. If at the time of execution the 
message file does not exist, the message format appears as follows: 


COBOL--INTERNAL CODE >eeee xxyyyy;nnnnnn 


The eeee portion represents the number of the message requested and the xxyyyyj;nnnnnn 
portions are as previously defined. 
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Table C-1. COBOL Run-Time Error Messages 


UNEXPECTED END OF FILE ON OBJECT FILE 


Explanation: 
The object file contains an end-of-file prior to data required for executing the program. 


User action: 
Verify that the correct object file was read and that it was correctly positioned. If necessary, 
recompile. 


ERROR READING OBJECT FILE, CODE = ?1 


Explanation: 
An error was detected while reading the object file. The code indicates the relative record number 
in the object file where the error occurred. 


User action: 
Recompile and relink. 


INVALID TAG, CODE = ?1 


Explanation: | 
A tag character in the object file was not a valid tag. The code indicates the relative record number 
in the object file where the invalid tag was found. 


User action: 
Verify that the correct object file was read and that it was correctly positioned. If necessary, 
recompile. Look for unresolved external references when using XCP or XCPF commands. 


CHECKSUM ERROR, CODE = ?1 


Explanation: 
A checksum in the object file was incorrect. The code indicates the relative record number in the 
object file where the checksum error was found. 


User action: 
Verify that the correct object file was read and that it was correctly positioned. If necessary, 
recompile. . 


BAD HEX VALUE ON OBJECT FILE, CODE = ?1 


Explanation: 
Object file contains a character that is not a hexadecimal value. The code indicates the relative 
record number in the object file where the invalid value was found. 


User action: 


Verify that the correct object file was read and that it was correctly positioned. If necessary, 
recompile. 
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Table C-1. COBOL Run-Time Error Messages (Continued) 


LOAD ADDRESS OUT OF RANGE, CODE = 71 


Explanation: 
The object file contains aload address that is not within the valid range. 


User action: 
Verify that the correct opject file was read, and that it was correctly positioned. If necessary, 
recompile. 


UNABLE TO GET MEMORY 


Explanation: 
The system has insufficient memory space available for program requirements. 


User action: 

Allow other tasks to terminate. Rerun program withoutcompetition for system resources. Check 
object code size in the compiler object listing or linked object listing. If the program will not fit in 
the task address space, then the program must be restructured using segmentation or overlays. 


INVALID OBJECT FILE TYPE, CODE = ?1 


Explanation: 
The object file type must be a relative record file when the program is compiled or linked. The 
code indicates the relative record number in the object file where the error was found. 


User action: 
Delete the object file and recompile and/or link edit. 


END COBOL RUN 


Explanation: 
The program has completed. 


User action: 
None required. 


UNABLE TO OPEN OBJECT FILE, CODE = 71 


Explanation: 
The system encountered an error when it tried to open the object file. The error code is the DX10 
internal SVC error code. 


User action: 

Refer to the table in the DX10 Messages and Codes Reference Manual where correspondence 
between the internal error and the SVC Message ID is given. Look at the internal error code 
>00xx, where xx is the DX10 SVC internal error given in the COBOL message. Verify that the 
correct object file was read and that it was correctly positioned. If necessary, recompile. 
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Table C-1. COBOL Run-Time Error Messages (Continued) 


LOAD OVERLAY SVC ERROR 


Explanation: 
The system encountered an error when loading an independent segment. 


User action: 
Check that the link control file is correct. 


COBOL DEBUGGER NOT AVAILABLE 


Explanation: 
The COBOL debugger is not linked with this task. 


User action: 
Relink the task with RCBTSKD instead of RCBTSK. 


COBOL RUN-TIME TCA ERROR 


Explanation: 
The system encountered an error in the Task Communication Area (TCA) processing. 


User action: 
Refer to system programmer. 


COBOL RUN-TIME MESSAGE ACCESS ERROR 


Explanation: 
The system encountered an error with the MESSAGE ACCESS NAME specified in the execution 
command prompt. 


User action: 

Ensure that the MESSAGE ACCESS NAME specified in the command prompt is not being used 
concurrently by multiple programs. Ensure that foreground-only programs are not being run in 
background. If a file name is specified, ensure that it is sequential. 


CFD KEY COUNT DOES NOT MATCH FCB KEY COUNT 
Explanation: 
The number of keys declared in a program for a key indexed file does not match the number of 
keys in the file control block declared when the file was created. 
User action: 


Verify program description of key indexed file and modify program to match file or recreate file to 
match program. 
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Table C-1. COBOL Run-Time Error Messages (Continued) 


CFD KEY FLAGS/LENGTH DOES NOT MATCH FCB KEY FLAGS/LENGTH 


Explanation: 
The key indexed file key attributes declared in a program do not match key attributes in the file 
control block declared when the file was created. 


User action: 
Check all keys for compatibility with file; specifically key length attribute, modifiable attribute, 


and duplicate attribute. 
CFD KEY OFFSET DOES NOT MATCH FCB KEY OFFSET 


Explanation: 
The displacement of a key-indexed file declared in a program does not match the displacement in 
the file control block declared when the file was created. 


User action: 
Check all keys for compatibility with the file; specifically key displacements. 


UNEXPECTED ERROR CONDITION 


Explanation: 
An unexpected error has occurred. 


User action: 
Refer to system programmer. 


COBOL INVALID ADDRESS AT: ?1 IN ?2 


Explanation: 
The statement references a linkage item for which no corresponding parameter exists. The error 
occurred at the given statement in the indicated program. 


User action: 
Examine the USING parameter lists for correspondence in both sending and receiving programs. 
An invalid UNIT number in an ACCEPT or DISPLAY can also cause this error. 


COBOLINVALID EDIT AT: ?1 IN 22 
Explanation: 
Statement implies editing of data for which the PICTURE clause is in error. Normally occurs only 
when attempting to execute object code that contains compiler errors. The error occurred at the 


given statement in the indicated program. 


User action: 
Correct the statement and recompile. 
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Table C-1. COBOL Run-Time Error Messages (Continued) 


COBOL INVALID DATA DESCRIPTOR AT: ?1 IN ?2 


Explanation: 

Statement references data for which the PICTURE clause is in error. Normally occurs only when 
attempting to execute object code that contains compiler errors. The error occurred at the given 
statement in the indicated program. 


User action: 
Correct PICTURE clause for data and recompile. 


COBOL UNDEFINED LABEL REFERENCE AT: ?11N 22 


Explanation: 
Statement transfers control to a paragraph that is undefined. The error occurred at the given 
statement in the indicated program. 


User action: 
Correct statement or source program and recompile. 


COBOL INVALID INSTRUCTION AT: ?1 IN ?2 


Explanation: 

The statement resulted in an undefined object instruction. Normally occurs only when attempting 
to execute object code that contains compiler errors. The error occurred at the given statement in 
the indicated program. 


User action: 
Correct the statement and recompile. 


COBOL OVERLAY LOAD AT: ?1 IN ?2 


Explanation: , 
This message provides traceback when an error has occurred. The previous overlay was loaded by 
the given statement in the indicated program. 


User action: 
None required. 


COBOL SUBSCRIPT RANGE ERROR AT: ?1 IN ?2 


Explanation: 
Statement contains a subscript that is not within proper range. The error occurred at the given 
statement in the indicated program. 


User action: 
Correct statement and recompile. 
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Table C-1. COBOL Run-Time Error Messages (Continued) 





COBOL COMPILATION ERROR AT: ?11N ?2 


Explanation: 
Statement compiled in error. The error occurred at the given statement in the indicated program. 


User action: 
Correct statement and recompile. 


COBOL STOP RUN AT: ?1 IN ?2 


Explanation: 
The program has completed with the execution of aSTOP RUN statement at the given statement 
in the indicated program. 


User action: 
None required. 


CALLED AT: ?1 IN ?2 


Explanation: 
This message provides traceback when an error has occurred. The previous program was called by 
the given statement in the indicated program. 


User action: 
None required. 


CRT ?11/O ERROR = ?2,73 AT: ?41N ?5 


Explanation: 
An error has occurred reading the characteristics of the given device. 


User action: 
Refer to system programmer. 


COBOL I/O ERROR = ?1,?2 AT: 23 IN ?4 


Explanation: 

1/0 statement did not execute successfully, and no AT END or INVALID KEY clause was 
applicable. The first number represents the status key. The second number is the SVC internal 
error code. The error occurred at the given statement in the indicated program. 


User action: 

For explanation of the status key, refer to the COBOL Programmer’s Guide, Section 12: Error 
Processing. For explanation of the SVC error code, refer to the table in the Messages and Codes 
Manual where correspondence between the internal error and the SVC Message ID is given. Look 
at the internal error code >00xx, where xx is the SVC internal error given in the COBOL message. 
Either write a USE procedure for the I/O or add the AT END or INVALID KEY clause to the 
statement and recompile. 


Exceptions to the SVC internal error code: On an open operation when the status key is 97 (invalid 
record length), the second number is the record length of the file being opened. When the status 
key is 93 or 94 (invalid open function), the second number indicates that some condition other 
than a detected error resulted in this condition. 
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Table C-1. COBOL Run-Time Error Messages (Continued) 


COBOL STOP “71” AT: ?2 IN 23 


Explanation: 
The program has completed with the execution of a STOP “‘literal’” statement at the given 
statement in the indicated program. 


User action: 
None required. 


PATHNAME: ?1 
Explanation: 


This message accompanies a COBOL I/O error message (CO1F). The error occurred using the 
given pathname. 


User action: 
None required. 


END ACTION TAKEN: TASK ERROR CODE = ?1;PC = ?2 
Explanation: 
The task error indicated by the code has occurred. The program counter where the error occurred 
is noted by the second code. A task error message is also logged to the system log. 
User action: 


Refer to the Error Messages and Codes section of your operating system reference manual for 
explanation. 
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D.1 INTRODUCTION 


This appendix contains a general explanation for each of the subroutines in the COBOL sub- 
routine library. These are listed in Table D-1. 


Where a subroutine has multiple alternate entry points, amain module name is listed, followed by 
the alternate entry points. The subroutine is not accessible by the main module name, but only 
through the entry points. The names given for the latter in Table D-1 are assigned aliases and can 
be used to access the code. Where a subroutine has only a single entry point, the code can be 
accessed via the module name shown. 


All data fields used as parameters to the COBOL subroutines MUST be aligned on word bound- 
aries. This can be accomplished by making the parameter an 01-Level data item in the WORKING- 
STORAGE section of the program. There are no provisions in either the compiler or the run-time 
packages to test for this condition, since to include such provisions would increase program Size, 
Causing a space problem in some user programs. However, user failure to ensure word alignment 
can result in improper execution or erroneous results. 
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Name 


C$CBID 
C$BSRT 
CS$CARG 
CS$CMPR 
C$CVDT 
CS$EXCP 
C$FCFD 
C$BKSP 
C$DLTE 
CSMFAP 
CSMKEY 
CS$RPRV 
C$TMPF 


C$GRPC 
C$GROF 
CS$GRPH 


C$LOC 
CS$RERR 


C$SCl 
CSMAPS 
CS$PARM 
C$SETS 


C$SCRN 
C$CLOS 
CSOPEN 
CSWRIT 


CS$SIGN 
C$ADDP 
C$SEPP 

C$SRCH 


C$SVC 


Table D-1. COBOL Library Subroutines 
Description 


Bid aCOBOL task from COBOL. 

Sort an array on agiven character string. 
Return USING argument information. 
Compare character strings logically. 
Close all VDTs currently open. 

Turn off function key accessibility. 
Backspace |/O on sequential file. 

Delete a file from COBOL. 

Modify file access privilege. 

Modify a KIF alternate key attribute to be nonmodifiable in program 
declaration. 

Read Previous 1/O on KIF. 


Set a temporary file flag; next OPEN ... OUTPUT creates a tempo- 
rary file. 


Turn off graphic display option. 

Turn on graphics bit. 

Return the address of the data argument. 
Return the 1/O completion status of the last file. 
Map and return synonym value. 


Get parameter from terminal communications area. 
Define or redefine asynonym in the terminal communications area. 


Close VDT device and output file. 
Open the VDT device and output file. 
Write the VDT screen contents to the output file or device. 


Embed the sign character with last data character. 

Separate embedded data character and sign character into data 
character and separate trailing sign. 
Perform a binary search on the array for the specified key value. 


Issue an SVC to operating system. 
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All of these subroutines reside in the library .S$SYSLIB.CSSUBS. They must be linked with the 
user application program using the LIBRARY or SEARCH command. These routines must be 
included in the task area, and the library .SCI990.SS$OBJECT must also be declared. The following 
shows a typical link control file, which can be used successfully to link any of the subroutines 
onto a program file: 


FORMAT IMAGE,REPLACE 
LIBR .SS$SYSLIB.CSSUBS 
LIBR .SCI990.SSOBJECT 
PROC RCOBOL 

DUMMY 

INCL .S$SYSLIB.RCBPRC 
TASK CBLTSK 

INCL .S$SYSLIB.RCBTSK 
INCL .S$SYSLIB.RCBMPD 
INCL <COBOL object module> 
END 


NOTE 


Refer to the COBOL Reference Manual for details on using the 
CALL statement with the USING option for passing parameters to 
subroutines. Pathnames specified as parameters in the USING list 
may be specified as valued data items or nonnumeric literals 
enclosed in quotes. 


The available routines are discussed below. Each discussion addresses the function of the 
routine, the COBOL calling sequence, each required argument, and where applicable, the error 
codes returned. 


D.2 C$CBID 


Function: This bids a COBOL task from COBOL with the message access name set to DUMY. 
Any file that will be deleted from within that bid task via a call to C6DLTE must not be 
open at the time C$CBID is called. 


Any task bid through C$CBID should not use any SCI interface routines that update the 
Task Communications Area (TCA). These include S$PTCA, S$SETS (and C$SETS), 
SSOPEN, S$WRIT, SSWEOL, and S$CLOS. The completion code and message are not 
available to the terminal associated with the original task. 


When a COBOL task bids another COBOL task using C$CBID, a copy of the original 


task’s synonym table is copied for use in the bid task. Any further updates of the syn- 
onym table in the original task are not available to the bid task. 


2270521-9701 D-3 


COBOL Subroutine Library Package 


Calling Sequence: 


CALL “C$CBID” USING ERR!ID LUNO FLAGS. 


ERR is atwo-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 for acomplete list of error codes. 


ID is an eight-byte alphanumeric data item specifying the installed task name. 
LUNO is a two-byte alphanumeric data item specifying the LUNO assigned to the pro- 
gram file containing the task to be bid. The LUNO must be specified as the hexade- 


cimal value of the LUNO; for example, LUNO >40 would be specified as ‘40’. 


FLAGS is a COMP-1 data item containing bid information, as specified by the following 


values: 
Value Meaning | 7 
0 Task ts bid without Suspending calling task 
1 Task is bid; calling task suspended until task ends 
2 Task is bid suspended; calling task continues 
3 Task is bid suspended; calling task suspended 
4 Task is bid controlled; calling task continues 
5 Task is bid controlled; calling task suspended 
6 Task is bid controlled and suspended; calling task continues 
7 Task is bid controlled and suspended; calling task suspended 
until task ends 
8 Task is bid; calling task terminated 
Same as 8 
10 Task is bid suspended; calling task terminated 
11 Same as 10 
12 Task is bid controlled; calling task terminated 
13-15 Task is bid; calling task terminated 


Values 8-15 use task chaining which does the following: 


D-4 


When C$CBID is called in foreground to bid another task, it does so and then terminates 
itself. SCI does not reactivate until the bid task has terminated. The bid task can perform 
ACCEPT and DISPLAY commands to and from the terminal. Any synonyms updated by 
the calling task and the bid task are available to SCI after the bid task terminates. 


When C$CBID is called in batch mode, the batch stream is suspended until the bid task 
has completed. 


2270521-9701 





COBOL Subroutine Library Package 


When using the task chaining facility, the bidding program must take into account the additional 
memory requirements for the C$CBID subroutine, the S$BIDT routine, and the TCA record which is 
initiated by S$BIDT. 


A controlled bid, as selected by values 4-7 and 12 for parameter FLAGS in a C$CBID call, corre- 
sponds to a bid performed using the SCI primitive .DBID. That is, the task is bid in ASSEMBLY 
DEBUG mode. 


Table D-2. Error Codes Returned for C$SUBS Subroutines 


Code Meaning 
00 Successful completion 
21 Cannot map synonym 
90 Illegal open mode or operation 
91 File CFD not found 
92 Illegal file type 
99 Incorrect argument list 
BF Invalid key number 
Others Operating system errors 


D.3 CS$BSRT 


Function: Sort an array in ascending sequence on a given character-string key, using a bub- 
ble-sort technique. 


Calling Sequence: 


CALL “C$BSRT”’ USING RECORD-CNT ARRAY-NAME RECORD-LENGTH 
KEY-LENGTH KEY-DISPLACEMENT. 


RECORD-CNT is a COMP-1 data item specifying the maximum number of entries in the 
array to be sorted. 


ARRAY-NAME is the array containing entries to be sorted. It must either be declared as a 
One-dimensional array, or made to appear as one by the specification of aRECORD- 
LENGTH to encompass any subarrays. 


RECORD-LENGTH is a COMP.-1 data item specifying the size of an individual array ele- 
ment. 


KEY-LENGTH is a COMP.-1 data item specifying the length of the character string to be 
used as the sort key. 


KEY-DISPLACEMENT is aCOMP.-1 data item specifying the displacement of the sort key 


from the beginning of the array element. The first character position in the array 
element has adisplacement of 0. 
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D.4 CS$CARG 
Function: This fetches and returns information about an argument in the USING list of a 
CALL statement. Refer to the section of this manual, ‘Calling Subroutines’, for a 
description of the information returned. 
Calling Sequence: 


CALL “C$CARG” USING ERR BUFFER ARG. 


ERR is a two-byte alphanumeric data item that gets set by C$CARG to an error code. A 
value of 00 indicates successful completion. Refer to Table D-2 for a complete list 
of error codes. 


BUFFER is the address of a buffer area to which the argument information is returned. 
The buffer must be at least 10 bytes long. 


ARG is the name of the data item for which argument information is obtained. 


D.56 CS$CMPR 


Function: This compares character strings logically using a specified table. The table defines 
nonstandard ASCII collating sequences. 


Calling Sequence: 
CALL ‘“‘C$CMPR” USING STAT STRNG1 STRNG2 TABLE. 


STAT is a two-byte alphanumeric data item for returning a comparison result. Possible 
completion codes are: 


HlLif STRNG1 > STRNG2 
EQ if STRNG1 = STRNG2 
LO if STRNG1 < STRNG2 
A value of 99 indicates an incorrect argument list. 
STRNG1 is the name of string records that are to be compared. 
STRNG2 is the name of string records that are to be compared. 


TABLE is the name of a record area that defines nonstandard collating sequences. 


lf acharacter is not defined in the table, it is assumed to use its standard ASCII code value. 
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EXAMPLE: 


01 ALT-TABLE PICTURE X(64) VALUE 
"ACBCDEFGHIJKLMNO/PQRSTUJVWXYZ ‘afbcdefghi" 
"i klmno|paqrstuvwxyz}''. 


D6 CS$CVDT 


Function: Close all VDTs currently open for ACCEPT or DISPLAY functions. This allows tasks 
that are bid by C$CBID to gain access to the function keys. 


Calling Sequence: 


CALL “C$CVDT”’. 


D.7 CS$EXCP 
Function: This turns off accessibility to the function keys. CSEXCP should be called prior to 
the first ACCEPT or DISPLAY command because the first ACCEPT or DISPLAY com- 
mand to a VDT gains exclusive access to the function keys within a task. CSEXCP 
causes the ACCEPT and DISPLAY commands to ignore function key requests. | 
Calling Sequence: 


CALL “C$EXCP”’. 


D.8 CS$FCFD 

The alternate entry points CSBKSP, C$DLTE, CSMFAP, C$MKEY, C$RPRV, and C$TMPF all require 
COBOL file definitions (CFD) contained in the COBOL module. In all cases the pathname values in 
the working storage field, or the string used in the select statement, is used as is. No synonym 
resolution will be performed. 

D.8.1 CS$BKSP 


Function: This performs backspace I/O on sequential file. The calling program must contain 
the file description, and the file must be open when called. 


Calling Sequence: 
CALL “C$BKSP” USING ERR PATHNAME CNT. 


ERR is atwo-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 for acomplete list of error codes. 
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PATHNAME must contain the same pathname, synonym, or data name value as speci- 
fied in the SELECT...ASSIGN statement. PATHNAME must be declared as a valued 


dataitem or anonnumeric literal. Refer to Figure D-1 for examples. 


CNT is aCOMP-1 data item specifying the number of records to backspace. 


D.8.2 CS$DLTE 


Function: This deletes a file from COBOL. Any LUNO associated with the file will be released. 
Files with assigned global LUNOs will not be deleted. The calling program must contain 
the file description. The file must have been opened and closed within the COBOL pro- 


gram before calling C$DLTE. 


Calling Sequence: 
CALL “C$DLTE” USING ERR PATHNAME. 


ERR is atwo-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 for a complete list of error codes. 


PATHNAME must contain the same pathname, synonym, or data name value as speci- 
fied in the SELECT...ASSIGN statement. PATHNAME must be declared as a valued 


dataitem or anonnumeric literal. Refer to Figure D-1 for examples. 
D.8.3 CSMFAP 


Function: This changes the file access privilege to ‘“‘exclusive all’. The calling program must 
contain the file description. The file must be opened prior to calling CSMFAP. 


Calling Sequence: 
CALL “CS$MFAP” USING ERR PATHNAME. 


ERR is atwo-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 fora complete list of error codes. 


PATHNAME must contain the same pathname, synonym, or data name value as speci- 
fied in the SELECT...ASSIGN statement. PATHNAME must be declared as a valued 
dataitem or anonnumeric literal. Refer to Figure D-1 for examples. 


D.8.4 CSMKEY 


Function: This changes a COBOL program’s declaration of an alternate key from modifiable 
(default) to nonmodifiable. The calling program must contain the file description. 


CS$MKEY must be called prior to opening the file. 


The KIF file to be opened must contain the characteristics specified in the SELECT 
statement and the C$MKEY description. . 
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Calling Sequence: 
CALL “CS$MKEY” USING ERR PATHNAME KEY. 


ERR is atwo-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 for acomplete list of error codes. 


PATHNAME must contain the same pathname, synonym, or data name value as speci- 
fied in the SELECT ... ASSIGN statement. PATHNAME must be declared as a valued 
data item or as anonnumeric literal. Refer to Figure D-1 for examples. 


KEY is a COMP-1 data item specifying the ordinal number of the key whose status is to 
be changed. The primary key is always key ‘‘1” regardless of displacement. 


D.8.5 CS$RPRV 


Function: This reads previous I/O on KIF. The calling module must contain the file descrip- 
— tion. The file must be open and in the sequential access mode. C$RPRV functions like a 
Read Next command except the previous record is read based on the key of reference. 


Calling Sequence: 
CALL “C$RPRV” USING ERR PATHNAME BUFFER. 


ERR is atwo-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 for acomplete list of error codes. 


PATHNAME must contain the same pathname, synonym, or data name value as speci- 
fied in the SELECT...ASSIGN statement. PATHNAME must be declared as a valued 
data item or a nonnumeric literal. Refer to Figure D-1 for examples. If the PATH- 


NAME is a data item, it must be unique to that KIF file. Otherwise, the program may 
produce indeterminant results. 


BUFFER is the name of arecord area in which to return the record read. 


D.8.6 CSTMPF 


Function: This sets a flag that causes the following OPEN... OUTPUT command to create a 
temporary file. If more than one file is specified in the OPEN statement, only the first will 


be created as a temporary. The calling program must contain the file description. Refer 
to Figure D-1 for examples. 


Calling Sequence: 


CALL “C$TMPF”’. 


D.9 C$GRPC 


The alternate entry points, CSGROF and C$GRPH, affect the graphics VDT capabilities. 
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D.9.1 CSGROF 
Function: This turns off the graphics display option. 
Calling Sequence: 
CALL “C$GROF”. 
D.9.2 CS$GRPH 
Function: This turns on the graphics display option. 
Calling Sequence: 


CALL “C$GRPH”. 


D.10 CS$LOC 
Function: This returns the run-time address of a COBOL data item or I/O buffer. 
Calling Sequence: 
CALL “‘C$LOC” USING VARIABLE-NAME, VARIABLE-ADDRESS. 
VARIABLE-NAME is a group level item or asingle data name. It may not be atable item. 
VARIABLE-ADDRESS must be aligned on a word boundary as an 01-level PIC 9(4) 
COMP-4 data item. 
D.11 CSRERR 
Function: This retrieves the last file |/O completion status. 
Calling Sequence: 
CALL “C$RERR” USING RET-STATUS. 
RET-STATUS is a four-byte alphanumeric data item used for returning the DX10 I/O com- 


pletion code (bytes 1-2) and the KIF information code (bytes 3-4) where applicable. 
These codes are in ASCII representation. 


D.12 C$SCl 


The alternate entry points, CSMAPS, C$PARM, and C$SETS, all use SCI routines. Refer to Figure 
D-2 for examples. 
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D.12.1 CS$MAPS 


Function: This maps and returns a synonym value from the terminal communications area. 


Calling Sequence: 
CALL ““C$MAPS” USING ERR SYNONYM SYN-VALUE. 


ERR is atwo-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 for acomplete list of error codes. 


SYNONYM Specifies an alphanumeric data item or anonnumeric literal value which may 
neither exceed 50 characters nor contain embedded blanks. 


SYN-VALUE specifies an alphanumeric data item of sufficient length to contain the 
mapped value of the synonym. If the value contains embedded blanks, only that 


part which precedes the first blank will be returned. 


D.12.2 CSPARM 


Function: This gets the parameter placed in the terminal communications area by the com- 
mand procedure via the PARMS parameter. 


Calling Sequence: 
CALL “C$PARM” USING ERR PARM-NO PARM-VALUE. 


ERR is atwo-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 for acomplete list of error codes. 


PARM-NO is a COMP-1 data item specifying the parameter in the PARMS list for the 
desired parameter. | 


PARM-VALUE is an alphanumeric data item of sufficient length to contain the returned 
parameter value. 


D.12.3  CS$SETS 
Function: This defines or redefines asynonym in the terminal communications area. 
Calling Sequence: 
CALL ‘“‘C$SETS” USING ERR SYNONYM SYNONYM-VALUE. 


ERR is a two-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 for acomplete list of error codes. 
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SYNONYM specifies an alphanumeric data item or anonnumeric literal value which may 
neither exceed 50 characters nor contain blanks. 


SYNONYM-VALUE specifies that an alphanumeric data item contain the value of the 
synonym. The value may neither exceed 50 characters nor contain embedded blank 
characters. If blanks are present, only that portion of the value which precedes the 
first blank will be used, and the remainder will be ignored. 


D.13 CSSCRN 


The alternate entry points, CSOPEN, C$WRIT, and C$CLOS are used together to open the terminal 
screen and output file, write the screen contents, and close all files. 


D.13.1 C$CLOS 


Function: This closes the VDT device and output file to which the VDT screen contents were 
written. CS6CLOS should be called only if CSOPEN was called to open the files. 


Calling Sequence: 
CALL ‘“‘C$CLOS” USING ERR. 


ERR is atwo-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 for acomplete list of error codes. 


- D.13.2 CSOPEN 


Function: This opens the VDT device and an output file or device for the writing of screen 
contents. This must be called before calling C6WRIT or C$CLOS. 


Calling Sequence: 
CALL “CSOPEN” USING ERR PATHNAME. 


ERR is a two-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 for acomplete list of error codes. 


PATHNAME is the pathname of the output file, or the device name if writing to a device. 
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D.13.3 CSWRIT 


Function: Write the contents of the VDT screen to a file or other device. CSOPEN must be 
called prior to calling CSWRIT. 


Calling Sequence: 
CALL “C$WRIT”’ USING ERR. 


ERR is atwo-byte alphanumeric data item for returning an error code. A value of 00 indi- 
cates successful completion. Refer to Table D-2 fora complete list of error codes. 


D.14 CS$SIGN 


The alternate entry points CSADDP and C$SEPP respectively generate and remove “overpunch” 
signs. 


D.14.1 CS$ADDP 
Function: This embeds a separate trailing sign with the last data byte forming an overpunch 
character or unpacked format. Only a negative sign is processed in forming the over- 


punch character. The characters ], J, K, L, M, N, O, P, Q, and R represent the negative 
values —Q through — 9, respectively. 


Calling Sequence: 
CALL ‘‘C$ADDP” USING IN-DATA OUT-DATA. 
IN-DATA is anumeric sign-trailing-separate data item of length n. 
OUT-DATA is an unsigned numeric data item of length n — 1. 


D.14.2 CSSEPP 


Function: This separates the last data byte referenced, which is assumed to have an embed- 
ded sign, into a data byte and a separate trailing sign. The characters ], J, K, L, M, N, O, P, 
Q, and R convert to a negative sign; the characters 0 through 9, and A through |, and 
hexadecimal 7B convert to a positive sign. 

Calling Sequence: 
CALL “C$SEPP” USING IN-DATA CUT-DATA. 


IN-DATA is an unsigned numeric data item of length n. 


OUT-DATA is asigned numeric data item of length n +1. 
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D.15 CS$SRCH 


Function: This performs a binary search on an array for a specified key value. The array must 
be in ascending sort order on the specified key. 


Calling Sequence: 


CALL “C$SRCH” USING RECORD-CNT ARRAY-NAME RECORD-LENGTH 
KEY-LENGTH KEY-DISPLACEMENT KEY-VALUE. 


RECORD-CNT is a COMP-1 data item specifying the maximum number of entries in the 
array to be searched. 


ARRAY-NAME is the array containing entries to be searched. It must be declared as a 
one-dimensional array. 


RECORD-LENGTH is a COMP-1 data item specifying the size of an individual array 
element. 


KEY-LENGTH is a COMP-1 data item specifying the length of the character string to be 
used as the search key. 


KEY-DISPLACEMENT is a COMP-1 data item specifying the displacement of the search 
key from the beginning of the array element. The first character position in the array 
element has adisplacement of 0. 


KEY-VALUE specifies the value of the key to locate in the array. It must be used in the 
same way as the key field of the array described by KEY-LENGTH and KEY- 
DISPLACEMENT. 


On return, RECORD-CNT contains the array element occurrence number that matches 
KEY-VALUE or the value 0 if amatch is not found. 


D.16 CS$SVC 


Function: This issues an SVC call block to the operating system as defined in the DX10 Sys- 
tem Programmer’s Guide. 


Calling Sequence: 

CALL “C$SVC” USING SVC-CALL-BLOCK. 

SVC-CALL-BLOCK is a COBOL description of the call block for the particular SVC code 
to execute. Most of the items in the call block need to be unsigned binary items of 
differing lengths. 

The actual SVC status is returned by the SVC mechanism into the second byte of the SVC 


call block. The second byte is in the range 0 through 255 (decimal), or 0 through >FF 
(hexadecimal). 
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D.17 COBOL PROGRAMS USING SUBROUTINES 


Figure D-1 and Figure D-2 show two examples of the use of subroutines. 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 
SOURCE ACCESS NAME: MANUAL.PG.SRC.FIGODO1 
OBJECT ACCESS NAME: DUMY 
LISTING ACCESS NAME: MANUAL.PG.LST.FIGODO1 
OPTIONS: q 
PRINT WIDTH: 80 
PAGE SIZE: 35 


PROGRAM SIZE (LINES): 1000 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 
LINE DEBUG PG/LN eee ern er eee ee ee ee ee ok ee ee ne ee een ee ek ere a ae a eee ee 

1 IDENTIFICATION DIVISION. 
2 PROGRAM-ID. CALLER. 

3 * THIS PROGRAM WAS DEVELOPED AS A FUNCTIONAL 
4 * DEMONSTRATION TEST TO ILLUSTRATE EXECUTION 
5 * OF SELECTED MEMBERS OF THE COBOL SUBROUTINE 
6 * LIBRARY. 

4 ENVIRONMENT DIVISION. 

8 CONFIGURATION SECTION. 

9 SOURCE-COMPUTER. TI-990. 

10 . OBJECT-COMPUTER. TI-990. 

11 INPUT-OUTPUT SECTION. 

12 FILE-CONTROL. 

13 SELECT KIFALTF ASSIGN TO RANDOM, "'KIFALT" 

14 ORGANIZATION INDEXED 

15 ACCESS SEQUENTIAL 

16 RECORD KEY KEY-NO1 

17 ALTERNATE RECORD KEY KEY-NO2 

18 FILE STATUS IS KIFALT-STATUS. 

19 SELECT SEQFILE ASSIGN TO RANDOM ''SEQF''. 

20 SELECT KIFFILE ASSIGN TO RANDOM ''KIFF" 

21 ORGANIZATION INDEXED 

22 ACCESS SEQUENTIAL 

23 RECORD KEY KEY-NO. 

24 SELECT OUTFILE ASSIGN TO RANDOM, DATA-NAME. 
25 SELECT DLTEFLE ASSIGN TO RANDOM, DATA-NAME2. 
26 

27 DATA DIVISION. 

28 FILE SECTION. 

29 FD KIFALTF LABEL RECORDS STANDARD. 

30 01 KIF-ALT-REC. 

51 O2 KEY-NO1 PIC XX. 

32 O02 KEY-NO2 PIC X(4). 

33 O2 FILLER PIC X(74). 


Figure D-1. COBOL Subroutine Example 1 (Sheet 1 of 7) 
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DXCBL 
LINE 


D-16 


LcRs 
DEBUG PG/LN 


L.R. 
DEBUG PG/LN 


/ 


>0002 


>0002 
>0004 
>0008 


>0008 
>000A 


>O0O0E 
>O00E 


FD SEQFILE LABEL RECORDS STANDARD. 
01 SEQ-REC PIC X(80). 
FD KIFFILE LABEL RECORDS STANDARD. 
01 KIF-REC. 

O2 KEY-NO PIC X(C2). 

O2 FILLER PIC X(78). 
FD OUTFILE LABEL RECORDS STANDARD. 
01 OUT-REC PIC X(80). 


FD DLTEFLE LABEL RECORDS STANDARD. 
01 DLT-REC PIC X(80). 


WORKING-STORAGE SECTION. 
01  T-CODE PIC 9. 

01 ACTION PIC X. 

01 REC-NO PIC 99. 

01 KIFALT-STATUS PIC XX VALUE " ". 

01 DATA-NAME PIC X(20) VALUE "TEMPF". 
01 DATA-NAME2 PIC X(20) VALUE "DLTEF". 
01 PATHNAME PIC X(20). 

01  ERR-FLG PIC X(4) VALUE" ". 
01 KEY-NUMBER PIC 99 COMP-1. 

01 BACKSPACE-COUNT PIC 99 COMP-1. 


V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 3 
Aisave 
01 ERR-RETRIEVED PIC XXXX VALUE '' ''. 


V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M ~ PAGE 4 
ee ee ee re ee ee ee ee ee ee ere ee ee ee ee eee ee 


PROCEDURE DIVISION. 
DECLARATIVES. 
DECL1 SECTION. 
USE AFTER STANDARD ERROR PROCEDURE ON OUTFILE. 
DEC1. GO TO RETRIEVE-ERROR. 
END-DEC1. EXIT. 
DECL2 SECTION. 
USE AFTER STANDARD ERROR PROCEDURE ON KIFFILE. 
DEC2. GO TO RETRIEVE-ERROR. 
END-DEC2. EXIT. 
END DECLARATIVES. 


MAIN SECTION. 
BEGIN. 


Figure D-1. COBOL Subroutine Example 1 (Sheet 2 of 7) 
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73 >O00E DISPLAY "RETRIEVE ERROR WORD - 1'' LINE 1 ERASE. 
7&4 >0016 DISPLAY "SET TEMP FILE FLAG - 2". 
75 >0O01A DISPLAY 'BACKSPACE SEQ FILE - 3". 
76 >O01E DISPLAY "ALT KIF KEY NON-MOD - 4". 
7? >0022 DISPLAY ''READ PREVIOUS KIF ae ae 
78 >0026 DISPLAY "DELETE FILE = AON 
79 >002A DISPLAY "EXCLUSIVE ACCESS mae ee 
80 >002E DISPLAY "END TEST =O, 
81 >0032 DISPLAY "ENTER TEST CODE: '' LINE 10. 
82 >0038 ACCEPT T-CODE LINE 10 POSITION 20 PROMPT. 
83 >0042 GO TO RETRIEVE ERROR 
84 SET-TEMP-FLAG 
85 BACKSPACE-SEQ 
86 ALT-KEY-NON-MOD 
87 READ-PREVIOUS 
88 DELETE-FILE 
89 EXCLUSIVE-ACCESS 
90 FINISH-TEST 
91 DEPENDING ON T-CODE. 
92 >0056 GO TO MAIN. 
93 >0058 END-MAIN. EXIT. 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 5 
LINE DEBUG PG/LN Cn - ere ar ee ere et er eer ee renee ee eee ee ie eee ee eee ge a 
94 / 
95 >005C BACKSPACE-SEQ SECTION. 
96 >005C BEGIN. 
97 >005C DISPLAY ''C$BKSP - BACKSPACE TEST" LINE 1 ERASE. 
98 >0064 OPEN INPUT SEQFILE. 
99 >006A MOVE "'SEQF'' TO PATHNAME. 
100 >006E READ SEQFILE AT END GO TO END-RD. 
101 >0076 READ SEQFILE NO LOCK AT END GO TO END-RD. 
102 >007E READ SEQFILE AT END GO TO END-RD. 
103 >0086 MOVE 3 TO BACKSPACE-COUNT. 
104 >008A CALL '"'CSBKSP"" USING ERR-FLG ''SEQF'' BACKSTAGE-COUNT. 
105 >008C DISPLAY "ERROR = " ERR-FLG. 
106 >0094 MOVE SPACE TO SEQ-REC. 
107 >0098 READ SEQFILE AT END GO TO END-RD. 
108 >00A0 DISPLAY SEQ-REC. 
109 >00A4 DISPLAY '' TEST1 PASSES IF RECORD 1 DISPLAYED". 
110 >00A8 CLOSE SEQFILE. 
111. >OOAE OPEN I-O SEQFILE. 
112 >00B4 MOVE "'SEQF'' TO PATHNAME. 
113. >00B8 READ SEQFILE AT END GO TO END-RD. 
114 >00C0 READ SEQFILE NO LOCK AT END GO TO END-RD. 
115 >00C8 READ SEQFILE AT END GO TO END-RD. 
116 >00D0 MOVE 5 TO BACKSPACE-COUNT. 
117 >00D4 CALL ''CSBKSP" USING ERR-FLG ''SEQF'' BACKSPACE-COUNT. 


Figure D-1. COBOL Subroutine Example 1 (Sheet 3 of 7) 
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118 
119 
120 
121 
122 


149 


DXCBL 


LINE 
150 
151 
152 
153 


D-18 


>00D6 
>OODE 
>00E2 
>OOEA 
>OOEE 
>00F2 
>O00F6 
>OOFE 
>0106 


>0108 
>0108 
>0108 
>0110 
>0112 
>O11A 
>011E 
>0124 
>0126 


>012A 
>012A 
>012A 
>0132 
>0134 
>013A 
>013E 
>014A 
>0150 
>0156 
>015E 
>0162 


DEBUG 
>0166 
>016A 
>0172 
>017A 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 


PG/LN 


Figure D-1. 


DISPLAY "ERROR = '" ERR-FLG. 
MOVE SPACE TO SEQ-REC. 
READ SEQFILE AT END GO TO END-RD. 
DISPLAY SEQ-REC. 
DISPLAY '' TEST2 PASSES IF RECORD 1 DISPLAYED". 
DISPLAY "HIT Return TO CONTINUE". 
ACCEPT ACTION PROMPT. 
END-RD. CLOSE SEQFILE. 
END-SEQ. GO TO MAIN. 


RETRIEVE-ERROR SECTION. 
BEGIN. 
DISPLAY '"CSRERR - RETRIEVE ERROR TEST" LINE 1 ERASE. 
CALL ''C$RERR'" USING ERR-RETRIEVED. 
DISPLAY "ERROR RETRIEVED = ' ERR-RETRIEVED. 
DISPLAY "HIT Return TO CONTINUE". 
ACCEPT ACTION PROMPT. 
GO TO MAIN. 
END-RET. EXIT. 


SET-TEMP-FLAG SECTION. 
BEGIN. 
DISPLAY "CSTMPF - TEMPORARY FILE TEST" LINE 1 ERASE. 
CALL "'CSTMPF". 
OPEN OUTPUT OUTFILE. 
MOVE ALL ''*'' TO OUT-REC. 
WRITE OUT-REC. 
CLOSE OUTFILE. 
OPEN INPUT OUTFILE. 
READ OUTFILE AT END GO TO END-TMP-RD. 
DISPLAY OUT-REC. 
DISPLAY '' TEST PASSES IF RECORD OF ALL * DISPLAYED". 


OPT=M 
Britis ice Bit aiieths See aire Basal Shee ele Be win wea ws Rneee Sse seein aie ela ataner ete Ri '= Sante aa 
DISPLAY "HIT Return TO CONTINUE". 
ACCEPT ACTION PROMPT. 
END-TMP-RD. CLOSE OUTFILE. 
END-TEMP. GO TO MAIN. 


COBOL Subroutine Example 1 (Sheet 4 of 7) 
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DXCBL 


LINE 


155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 


184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
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L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE ¢ 
DEGUB PG/LN Abe Otreeettetiit ee eete Jewel eee ee Sew eee ee ee Aes ee ewe cies 
/ 
>017C READ-PREVIOUS SECTION. 
>017C BEGIN. 
>017C DISPLAY ''CSRPRV - READ PREVIOUS TEST' LINE 1 ERASE. 
>0184 OPEN INPUT KIFFILE. 
>018A READ KIFFILE AT END GO TO END-KIFR. 
>0192 READ KIFFILE AT END GO TO END-KIFR. 
>019A MOVE "KIFF'' TO PATHNAME. | 
>019E CALL "'CSRPRV' USING ERR-FLG PATHNAME KIF-REC. 
>01A0 DISPLAY "ERROR = '" ERR-FLG. 
>01A8 DISPLAY KIF-REC. 
>01AC DISPLAY '' TEST 1 PASSES IF RECORD 1 DISPLAYED". 
>01B0 MOVE '"'05'"' TO KEY-NO. 
>01B4 START KIFFILE KEY NOT < KEY-NO 
INVALID KEY DISPLAY "INVALID START" 
GO TO END-KIFR. 

>01C4 MOVE '"'KIFF'' TO PATHNAME. 
>01C8 CALL ''CSRPRV' USING ERR-FLG PATHNAME KIF-REC. 
>01CA DISPLAY "'ERROR = ' ERR-FLG. 
>01D2 DISPLAY KIF-REC. 
>01D6 DISPLAY '' TEST 2 PASSES IF RECORD 5 DISPLAYED". 
>01DA DISPLAY "HIT Return TO CONTINUE". 
>01DE ACCEPT ACTION PROMPT. 
>01E6 END-KIFR. CLOSE KIFFILE. 
>01EE END-PRV. GO TO MAIN. 
>01F0 DELETE-FILE SECTION. 
>01F0 BEGIN. 
>01F0 DISPLAY 'CSDLTE - DELETE TEST" LINE 1 ERASE. 
>01F8 MOVE DATA-NAME2 TO PATHNAME. 

OPEN OUTPUT DLTEFLE. 
>0202 CLOSE DLTEFLE. 
>0208 CALL "CSDLTE'" USING ERR-FLG PATHNAME. 
>020A DISPLAY "ERROR = ' ERR-FLG. 
>0212 DISPLAY '' TEST PASSES IF NO ERROR RETURNED". 
>0216 DISPLAY "HIT Return TO CONTINUE". 
>021A ACCEPT ACTION PROMPT. 
>0222 END-DEL. GO TO MAIN. 
>0224 ALT-KEY-NON-MOD SECTION. 
>0224 BEGIN. 
>0224 DISPLAY ''CSMKEY - SET ALT KIF KEY NON-MOD TEST" LINE 1 

MOVE '"KIFALT'' TO PATHNAME. 
>0230 MOVE 2 TO KEY-NUMBER. 
>0234 CALL ''C$MKEY'' USING ERR-FLG PATHNAME KEY-NUMBER. 
>0236 DISPLAY "ERROR = ' ERR-FLG. 
>023E OPEN INPUT KIFALTF. 
>0244 DISPLAY "FILE STATUS = " KIFALT STATUS. 
>024C DISPLAY '' TEST PASSES IF FILE STATUS = 00". 
>0250 IF KIFALT-STATUS = "00" CLOSE KIFALTF. 
>025C DISPLAY "HIT Return TO CONTINUE." 
>0260 ACCEPT ACTION PROMPT. 
>0268 END-ALT-MOD. GO TO MAIN. 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 8 
LINE DEBUG PG/LN Pilte dt Bro mpecscdal acy Bae cata e aie ue wrarene- ee leas, alae vaca, © are oe Ria eee eer eee tee we 
207 / 
208 >026A EXCLUSIVE-ACCESS SECTION. 
209 >026A BEGIN. 
210 >026A DISPLAY ''CSMFAP - EXCLUSIVE ACCESS TEST'' LINE 1 ERASE. 
211 >0272 OPEN I-O KIFFILE. 
212 >0278 MOVE ''KIFF'' TO PATHNAME. 
213 >027C CALL ''CSMFAP'' USING ERR-FLG "'KIFF". 
214 >027E DISPLAY "ERROR = '' ERR-FLG. 
215 >0286 DISPLAY '' TEST PASSES IF NO ERROR RETURNED". 
216 >028A CLOSE KIFFILE. 
217 >0290 DISPLAY "HIT Return TO CONTINUE". 
218 >0294 ACCEPT ACTION PROMPT. 
219 >029C END-EXCL. GO TO MAIN. 
220 
221 >029E FINISH-TEST SECTION. 
222 >029E BEGIN. 
223 >029E DISPLAY "END OF JOB". 
224 >02A2 STOP RUN. 
225 ZZZZZZ END PROGRAM. xxx END OF FILE 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 9 
ADDRESS SIZE DEBUG ORDER TYPE NAME 
0 FILE KIFALTF 
>0026 80 GRP 0 GROUP KIF-ALT-REC 
>0026 2 ANS 0 ALPHANUMERIC KEY-NO1 
>0028 4 ANS 0 ALPHANUMERIC KEY-NO2 
0 FILE SEQFILE 
>0076 80 ANS 0 ALPHANUMERIC SEQ-REC 
0 FILE KIFFILE 
>00C6 80 GRP 0 GROUP KIF-REC 
>00C6 2 ANS 0 ALPHANUMERIC KEY-NO 
0 FILE OUTFILE 
>0116 80 ANS 0 ALPHANUMERIC OUT-REC 
0 FILE DLTEFLE 
>0166 80 ANS 0 ALPHANUMERIC DLT-REC 
>01BA 1 NSU 0 NUMERIC UNSIGNED T-CODE 
>01BC 1 ANS 0 ALPHANUMERIC ACTION 
>01BE 2 NSU 0 NUMERIC UNSIGNED REC-NO 
Figure D-1. COBOL Subroutine Example 1 (Sheet 6 of 7) 
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>01C0 2 ANS ALPHANUMERIC KIFALT-STATUS 

>01C2 20 ANS ALPHANUMERIC DATA-NAME 

>01D6 20 ANS ALPHANUMERIC DATA-NAME2 

>01EA 20 ANS ALPHANUMERIC PATHNAME 

>O1FE 4 ANS ALPHANUMERIC ERR-FLG 

>0202 2 NBS BINARY SIGNED KEY-NUMBER 

>0204 2 NBS BINARY SIGNED BACKSPACE-COUNT 

>0206 4 ANS ALPHANUMERIC ERR-RETRIEVED 
READ ONLY BYTE SIZE = >0762 
READ/WRITE BYTE SIZE = >043E 
OVERLAY SEGMENT BYTE SIZE >0000 
TOTAL BYTE SIZE = >OBAO0 

QO ERRORS 
0 WARNINGS 

DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 10 

PROGRAM USING COUNT 7 

C$BKSP 3 

CSDLTE 2 

CSMFAP 2 

CSMKEY 3 

CSRERR 1 

CSRPRV 3 

CSTMPF 0 

Figure D-1. COBOL Subroutine Example 1 (Sheet 7 of 7) 
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DXCBL 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 


SOURCE ACCESS NAME: 
OBJECT ACCESS NAME: 
LISTING ACCESS NAME: 
OPTIONS: 


PRINT WIDTH: 


PAGE SIZE: 
PROGRAM SIZE (LINES): 


DXCBL 


LINE 


D-22 


>0000 
>0000 
>0008 
>OO0E 
>0018 
>001C 
>O01E 


>0042 
>0048 
>0052 
>0058 
>0062 
>0064 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 
DEBUG PG/LN Rex 


OPT=M PAGE 1 
MANUAL.PG.SRC.FIGOCO2 

DUMY 

MANUAL.PG.LST.FIGOCO2 

M 

80 

55 

1000 


OPT=M PAGE 2 
ee ee eee ee a eee ee ee ee re eae ee eee a ee ae eee eee ee a ee 


IDENTIFICATION DIVISION. 


PROGRAM-ID. 


CBLMAPS. 


* THIS PROGRAM WAS DEVELOPED AS A FUNCTIONAL 
* DEMONSTRATION TEST TO VERIFY THE INTERFACE 
* OF COBOL TO SCI VIA SUBROUTINES. 
ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. TI-990. 

OBJECT-COMPUTER. TI-990. 

DATA DIVISION. 

FILE SECTION. 

WORKING-STORAGE SECTION. 


01 


ACTION PIC X. 

ERR-FLG PIC 99 VALUE 0. 
PATHNAME PIC X(50) VALUE '" '''.” 
SYNONYM PIC X(20) VALUE '"' ''"'. 
BUFFR PIC X(€50) VALUE " '". 
NUM PIC 99 COMP-1. 


PROCEDURE DIVISION. 
MAIN-PROG. 


DISPLAY''CSPARM, CSSETS, CSMAPS - SCI TESTS" LINE 1 ERASE 
DISPLAY "ENTER PARM NO.' LINE 3. 
ACCEPT NUM LINE 3 POSITION 20 CONVERT. 
MOVE '' '' TO BUFFR. 
CALL "CSPARM' USING ERR-FLG NUM BUFFR. 
IF ERR-FLG = 00 
DISPLAY "PARAMETER = " LINE 4 
BUFFR LINE 4 POSITION 20 
ELSE DISPLAY '"'PARM ERROR" LINE 4 
DISPLAY ERR-FLG LINE 4 POSITION 20. 


DISPLAY "ENTER SET SYNONYM" LINE 6. 

ACCEPT SYNONYM LINE 6 POSITION 20 PROMPT. 
DISPLAY "ENTER PATHNAME" LINE 7. 

ACCEPT PATHNAME LINE 7 POSITION 20 PROMPT. 
CALL "CSSETS" USING ERR-FLG SYNONYM PATHNAME. 
IF ERR-FLG = 00 


Figure D-2. COBOL Subroutine Example 2 (Sheet 1 of 3) 
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38 DISPLAY "SYNONYM SET'' LINE 8 

39 ELSE DISPLAY "SET ERROR" LINE 8 

40 DISPLAY ERR-FLG LINE 8 POSITION 20. 

41 * 

42 >0080 MOVE '' '' TQ PATHNAME. 

43° >0084 DISPLAY "ENTER MAP SYNONYM" LINE 10. 

44 >008A ACCEPT SYNONYM LINE 10 POSITION 20 PROMPT. 

45 >0094 CALL "'CSMAPS' USING ERR-FLG SYNONYM PATHNAME. 

46 >0096 IF ERR-FLG = 00 

47 DISPLAY ''SYNONYM VALUE = " LINE 11 

48 PATHNAME LINE 11 POSITION 20. 

49 ELSE DISPLAY ''MAP ERROR" LINE 11 

50 DISPLAY ERR-FLG LINE 11 POSITION 20. 

51 * 

52 >00BA DISPLAY "HIT Return TO CONTINUE" LINE 22. 

53  >00C0 ACCEPT ACTION LINE 22 POSITION 30 PROMPT. 

54 >00CA STOP RUN. 

35 ZZZZZZ END PROGRAM. *xk*k END OF FILE 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M PAGE 3 
ADDRESS SIZE DEBUG ORDER TYPE NAME 

>002A 1 ANS 0 ALPHANUMERIC ACTION 

>002C 2 NSU 0 NUMERIC SIGNED ERR-FLG 

>002E 50 ANS 0 ALPHANUMERIC PATHNAME 

>0060 20 ANS 0 ALPHANUMERIC SYNONYM 

>0074 50 ANS 0 ALPHANUMERIC BUFFR 

>00A6 2 NBS 0 BINARY SIGNED NUM 

READ ONLY BYTE SIZE = >0284 
READ/WRITE BYTE SIZE = >00B0 


OVERLAY SEGMENT BYTE SIZE = >0000 
TOTAL BYTE SIZE = >0334 
0 ERRORS 


0 WARNINGS 


Figure D-2. COBOL Subroutine Example 2 (Sheet 2 of 3) 
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DXCBL 
PROGRAM 


CSMAPS 


CSPARM 
CSSETS 


D-24 


USING 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=M 
COUNT 


3 
3 
3 


Figure D-2. COBOL Subroutine Example 2 (Sheet 3 of 3) 


PAGE 


4, 
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Appendix E 
COBOL Compiler Listing Format 





This appendix shows the output that results from the M, O, and X options on the COBOL compiler. 
Refer to the COBOL System Design Document for details of generated COBOL compiler output. 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=MOX PAGE 1 
SOURCE ACCESS NAME: MANUAL.PG.SRC.FIGOEO1 
OBJECT ACCESS NAME: DUMY 
LISTING ACCESS NAME: MANUAL.PG.LST.FIGOEO1 
OPTIONS: MOX 
PRINT WIDTH: 80 
PAGE SIZE: 35 


PROGRAM SIZE (LINES): 1000 


DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=MOX PAGE 2 
LINE DEBUG PG/LN Psa ah eh Bartel tes el sackler ms Bk be dey een ae AS Se eee ne ea etal Ora eae, Ss acer eae we er a 
1 IDENTIFICATION DIVISION. 
PROGRAM-ID. OBJLST. : 

3 * THIS PROGRAM IS USED TO ILLUSTRATE THE FORMAT 
4 * OF THE COMPILER LISTING WITH M, O, & X OPTIONS. 
5 ENVIRONMENT DIVISION. 

6 CONFIGURATION SECTION. 

( SOURCE-COMPUTER. TI-990. 

8 OBJECT-COMPUTER. TI-990. 

9 INPUT-OUTPUT SECTION. 

10 FILE-CONTROL. 

11 SELECT OUTFILE ASSIGN TO PRINT "'OQUTX''. 

12 DATA DIVISION. 

13 FILE SECTION. 
14 FD OUTFILE LABEL RECORDS OMITTED. 

15 01 OUT-REC. 

16 O02 REC1 PIC X(80). 

17 WORKING-STORAGE SECTION. 

18 01 ACTION PIC X. 

19 01 HEADER PIC X(80) VALUE ALL ''-'"', 


Figure E-1. COBOL Compiler Listing Format (Sheet 1 of 8) 
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momMmMmMmmome MMM MMMM MMMM MMMM Mos oMm mM MMMM MM MMMM 


>0084 
>0086 
>0088 
>008A 
>008C 
>O008E 
>0090 
>0092 
>0094 
>0096 
>0098 
>009A 
>009C 
>O09E 
>00A0 
>00A2 
>00A4 
>00A6 
>00A8 
>OOAA 
>OOAC 
>OOAE 
>00B0 
>00B2 
>00B4 
>00B6 
>00B8 
>OOBA 
>O00BC 
>OOBE 
>00C0 
>00C2 
>00C4 
>00C6 
>00C8 
>O00CA 
>00CC 


NANNANANNAVAAAANANVANANAAAANAANANANAAAAVANAAAIAAIAAAUNAUNAAURAUHNHAN NM 


Figure E-1. 


>0084 
>0086 
>0088 
>008A 
>008C 
>O008E 
>0090 
>0092 
>0094 
>0096 
>0098 
>O009A 
>009C 
>009E 
>00A0 
>00A2 
>00A4 
>00A6 
>00A8 
>OOAA 
>OOAC 
>OOAE 
>00B0 
>00B2 
>00B4 
>00B6 
>00B8 
>O00BA 
>OOBC 
>OOBE 
>00C0 
>00C2 
>00C4 
>00C6 
>00C8 
>O00CA 
>00CC 


wwowvowvwv0a0n0”tevonvwvowv wo wowvwvwwaidsnonaouorqitiv_reuowdiowvnawcdcaqw4bubueqnio»»o»aonaawdna aD w 


>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 
>2D2D 


COBOL Compiler Listing Format (Sheet 2 of 8) 
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DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=MOX PAGE 3 
LINE DEBUG PG/LN Pe ass! tances aaecactaotas ee. Sarena iia eee Sah aetna ade aa cen tetas Secu tecs ane een eee 
E >00CE S >0O0CE B >2D2D 
E >00D0 S >00D0 B >2D2D 
E >00D2 S >00D2 B >2D2D 
|| | | | | 
| | | | | | 
| | | | || 
| | - + | | 
| | | | | ---- DATA VALUES 
|| | | | 
| | | | 0 seeeen-- B-TAG: DENOTES ABSOLUTE VALUE 
| | || 
| | | | RELOCATABLE ADDRESS RELATIVE TO START 
| | | 0 eee ee eren----- OF SDATA 
| | | 
| | | S-TAG: DATA (CSDATA) RELOCATABLE LOAD 
| | 0 ee een e nn ------ ADDRESS TAG 
| | 
| | LOGICAL OFFSET IN ESECT (EXPLICIT DATA 
| 00 perenne nnn nen SECTION OF INITIALIZED VALUES ONLY 
| 
a a a mache LOGICAL ESECT DESIGNATOR TAG 
20 PROCEDURE DIVISION. 
21 >0000 MAIN-PROG. 
Sa a am LOGICAL PSECT ALWAYS STARTS AT ZERO 
P >0000 A >0030 B >4707 
| 
| 
ra scien siesta aa ears PSECT STARTS AT >30; OBJECT HEADER 
PRECEDES PSECT. 
P >0002 A >0032 B >4405 
P >0004 A >0034 B >3400 
22 >0000 OPEN OUTPUT OUTFILE WITH NO REWIND. 
P >0006 A >0036 B >5308 
P >0008 A >0038 B >0C09 
25 =>0006 MOVE ALL ''x'' TQ OQUT-REC. 
P >O00A A >003A B >470B 
P >000C A >003C B >SEOE 
P >O00E A >003E B >2C0C 
P >0010 A >0040 B >7400 
24 >000A WRITE OUT-REC. 
P >0012 A >0042 B >530D 
P >0014 A >0044 B >0C09 
P >0016 A >0046 B >460F 
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25 


26 


27 


28 


29 


30 
31 


E-4 


~ 


uu VU 


uT 70 UD UV 


> 
V 
Co) 
>) 
— 
> 


> > 
VV 
oO © 
Oo © 
uw ut 
NM © 


> > YP Yr > 
V 
>) 
© 
Vl 
oO 


> > 
VV 
oO © 
Oo © 
nul 
om 


B >5E0E 

B >2C0C 

B >7400 

WRITE OUT-REC FROM HEADER. 

B >4710 

B >4401 

B >0OA00 

CLOSE OUTFILE WITH NO REWIND. 
B >OFOO 

B >4C11 

B >4404 

B >1613 

DISPLAY "ENTER 'C' TO CONTINUE' LINE 1 ERASE. 
B >0F00 

B >4408 

B >0215 

ACCEPT ACTION PROMPT. 

B >5315 

B >6A17 


B >1C19 


B >261A 


ABSOLUTE INSTRUCTIONS. INSTRUCTION IS 
>25, BUT FIRST INSTRUCTION OF STATEMENT 

--- HAS BIT 7 OF FIRST BYTE ON - THUS IT 
BECOMES >26 


-+-+---- B-TAG: DENOTES ABSOLUTE VALUE 


PROGRAM (PROG-PSEG) RELOCATABLE 


—---------------- ADDRESS 


A-TAG: DENOTES PROGRAM RELOCATABLE 


-------------------- ADDRESS 


LOGICAL PSECT ADDRESS (OBJECT 


See ee eee INSTRUCTIONS) 


ae ae oa ee LOGICAL PSECT DESIGNATOR TAG 


p 


>0032 
>003A 
>O003A 


A >006A 


ZZZZZZ END PROGRAM. 


Figure E-1. 


IF ACTION = ''C'' GO TO MAIN-PROG. 
B >5900 
STOP RUN. 


COBOL Compiler Listing Format (Sheet 4 of 8) 


**kk END OF FILE 
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DXCBL 


LINE 


mT FF TT FE FP PF Pe Pe PO Pe 


>00D4 
>00D6 
>00D8 
>O0DA 
>00DC 
>OODE 
>00E0 
>00E2 
>O00E4 
>00E6 
>00E8 


2270521-9701 


COBOL Compiler Listing Format 


A >006C B >4F55 
A >006E B >5458 
A >0070 B >3100 
A >0072 B >454E 
A >0074 B >5445 
A >0076 B >5220 
A >0078 B >2743 
A >007A B >2720 
A >007C B >544F 
A >007E B >2043 
A >0080 B >4F4E 
L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=MOX PAGE 
PG/LN Persia. 5) Bee op Gig. carcae es) ena) a Sweetener. earns a ee A ewe ee ae, ann Wa ale ere beaver el Ge aie 
A >0082 B >5449 
A >0084 B >4E55 
A >0086 B >4500 
A >0088 B >4300 
| | | | 
| | | | 
| | | | 
| | | | 
| | | ---- ABSOLUTE DATA - LITERALS. 
| | | 
| | ween B-TAG: DENOTES ABSOLUTE VALUE 
| | 
| | PROGRAM RELOCATABLE ADDRESS. LOADED 
[titatetatatatetetetatatetetetatete AFTER PSECT. 
| 
| A-TAG: DENOTES PSEG OR SPROG LOAD 
Se S==SSSensSe=]sSSe5 ADDRESS 
Ba a an lm a ee COBOL RELATIVE ADDRESS 
Se ee Se ee LSECT (LITERAL SECTION) DESIGNATOR 
Figure E-1. COBOL Compiler Listing Format (Sheet 5 of 8) 
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DOD TT TTT OTT TT TT TT Te me O_O TO HT TO TH TT TN 


mrATmT MTA TDDTaADTTyD™”N 


UU VU VU VU OU FOU CO 


>O00A 
>000B 
>000C 
>000D 
>O000E 
>O00F 
>0010 
>0011 
>0012 
>0013 


>0000 
>0001 
>0002 
>0003 
>0004 
>0005 
>0006 
>0007 
>0008 


ANNnNNUNRAUNVnRMNMNM 


NANNNANNNUNANNM 


>rrrrr,rr,r> > 


>00E8 
>OOEA 
>OOEC 
>OOEE 
>00FO 
>00F2 
>O00F4 
>O00F6 
>00F8 
>OOFA 


>008A 
>008C 
>008E 
>0090 
>0092 
>0094 
>0096 
>0098 
>009A 


Figure E-1. 


owowwvwax#43iNna#o4a»#4#n 


Owwwwdwsnawnwi» wa WwW 


Owy73 wWWwWwVIWdWND Ww 


>006C 
>0004 
>0000 
>002A 
>0056 
>0050 
>0000 


>0000 
>0000 
>0300 
>0100 
>OOFC 
>0000 
>0000 
>0000 
>0000 
>0000 


>2C24 
>2E01 
>0000 
>0000 
>0000 
>0000 
>0120 
>0006 
>102A 


DATA 

TAGS: 
C-TAG: PROGRAM (PSEG) RELOCATABLE DATA 
B-TAG: ABSOLUTE DATA | 
T-TAG: DATA (DSEG-SDATA) RELOCATABLE DATA 


RELOCATABLE ADDRESS IN SDATA 
S-TAG: DENOTES SDATA RELOCATABLE 
RELATIVE ADDRESS WITHIN FSECT 


FSECT DESIGNATOR TAG 


COBOL Compiler Listing Format (Sheet 6 of 8) 
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D >0009 A >009C B >6050 . 
D >000A A >009E B >002A 
D >000B A >00A0 B >0012 
D >OQ00C A >00A2 B >0050 
D >000D A >00A4 B >5050 
D >OO0OE A >00A6 B >0084 
D >OO0F A >00A8 B >OQ0O1E 
D >0010 A >O0OAA B >0024 
D >0011 A >OOAC B >8001 
D >0012 A >OOAE B >00D8 
D >0013 A >00B0 B >5015 
D >0014 A >00B2 B >00DA 
D >0015 A >00B4 B >5001 
D >0016 A >00B6 B >0082 
D >0017 A >00B8 B >5001 Bae, 
D >0018 A >0O0BA B >00F0 
D >0019 A >O0OBC B >003A 
D >O01A A >0O0BE B >0000 
| | | | | | 
|| | | | | 
Lu | | | | 
i | | | | 
| | i A | ---- ABSOLUTE DATA 
|| | | | 
| | | | 9 seeeere= B-TAG: ABSOLUTE DATA DESIGNATOR 
|| | | 
| | | | RELOCATABLE ADDRESS WITHIN PSEG OR 
| | | Sree asaSeeasese= $PROG 
| | | | 
| | | A-TAG: PROGRAM RELOCATABLE PSEG 
| [ @eeeeeSres=se---=--- DESIGNATOR 
|| 
[iiiietatstetatetetatetatatatatetatatetatetetatateatate DSECT RELATIVE ADDRESS 
| 
ene SS aaa esa Sa SaaS DSECT DESIGNATOR TAG 
DXCBL L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS OPT=MOX PAGE 5 
LINE JDEBUG “PG7EN: As.cBicierscendrewesicoeewe ed -ces.86 eed gi tercetea te tied ce Shoes 
H >0000 A >0000 T >0000 
H >0000 A >0002 C >0004 
H >0000 A >0004 B >O5CE 
H >0000 A >0006 B >069E 
P >0000 A >0008 C >0030 
T >0000 A >0O00A T >00D4 
F >0000 A >000C T >00D04 
D >0000 A >00O0E C >008A 
C >0000 A >0010 C >00C0 
E >0000 A >0012 T >0000 
U >0000 A >0014 B >0000 
L >0000 A >0016 C >006C 
Figure E-1. COBOL Compiler Listing Format (Sheet 7 of 8) 
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COBOL Compiler Listing Format 


I >0000 A >0018 
H >0000 A >001A 
H >0000 A >001C 
H >0000 A >001E 
P >0000 A >0020 
T >0000 A >0022 
F >0000 A >0024 
D >0000 A >0026 
X >0000 A >0028 
E >0000 A >002A 
U >0000 A >002C 
L >0000 A >002E 
H >0000 A >0000 
H >0000 A >0002 
DXCBL 


ADDRESS SIZE 


0 
>002A 80 GRP 0 
>002A 80 ANS 0 
>0082 1 ANS 0 
>0084 80 ANS 0 


READ ONLY BYTE SIZE = 
READ/WRITE BYTE SIZE = 
OVERLAY SEGMENT BYTE SIZE 
TOTAL BYTE SIZE = 

OQ ERRORS 


Q WARNINGS 


DXCBL 

CROSS REFERENCE 
ACTION 

HEADER 
MAIN-PROG 
OUTFILE 
OUT-REC 

REC1 


Figure E-1. 
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Wwuwowwnwwddsvsanaqaondwz ® 


@w 


>0000 
>4F42 
>4A4C 
>5354 
>003C 
>0000 
>0028 
>0036 
>0000 
>00D04 
>0000 
>OO1E 


>0000 
>0008 


L.R.V YY.DDD COMPILED:MM/DD/YY HH:MM:SS 
DEBUG ORDER TYPE 


FILE 

GROUP 
ALPHANUMERIC 
ALPHANUMERIC 


ALPHANUMERIC 


>00C0 


>0122 


>0000 


>01E2 


L.R.V YY.DDD COMPILED:MM/DD/YY 
/DECL/ *DEST* 
/0018/ *0028* 
/0019/ 
/0021/ 
/0011/ /0014/ 
/0015/ *0023* 
/0016/ 


OPT=MOX PAGE 6 
NAME 


OUTFILE 
OUT-REC 
REC1 
ACTION 


HEADER 


HH:MM:SS OPT=MOX PAGE 0 


0029 


0022 0026 
*0024* *0025 


COBOL Compiler Listing Format (Sheet 8 of 8) 
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This index lists key topics of this manual and specifies where each topic appears, as follows: 


e Sections — Section references appear as Section n, where n represents the section 
number. 


e Appendixes — Appendix references appear as Appendix Y, where Y represents the 
appendix letter. 


e Paragraphs — Paragraph references appear as alphanumeric characters separated by 
decimal points. The first character refers to the section or appendix containing the para- 
graph, and any other numbers indicate the sequence of the paragraph within the section 
Or appendix. For example: 

— 3.5.2 refers to Section 3, paragraph 5.2. 
— A.2 refers to Appendix A, paragraph 2. 

e Figures — Figure references appear as Fn-x or FY-x, where n represents the section and 
Y represents the appendix containing the figure; x represents the number of the figure 
within the section or appendix. For example: 

— F2-7 refers to the seventh figure in Section 2. 
— FG-1 refers to the first figure in Appendix G. 

e Tables — Table references appear as Tn-x or TY-x, where rn represents the section and Y 
represents the appendix containing the table; x represents the number of the table 
within the section or appendix. For example: 

— 73-10 refers to the tenth table in Section 3. 
— TB-4 refers to the fourth table in Appendix B. 


e See and See also references — See and See a/so direct you to other entries in the index. 
For example: 


Logical UnitiNUMDEr aicisn pee tear iaand sake doen oes Keene eden See LUNO 
DeCVICE: nav o8so oes eu oUaau Pees See a/so individual device names or numbers 


Page numbers that correspond to these index references appear in the Table of Contents. 
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Index 


A Debug Command .............-.. 7.2.2.1 
ACCEPT: | 
Statement ......... 00.02 cee ee eee 41.1 
SC ss sd Be a ee as Fi1-1 
ACCESS NAMC: sxc fo i ce eee bee 2.5 
Activation, Debugger ................ 7.2.1 
AGOIESS SlOD a0 5 cl Sek sawed a Shia etiae 7.2 
Adjustment, Blank ................. 2.7.1.1 
RDU a6 ob in eae a cna aaa ee aS 2.7 
AGLSCICommand.............0006- 6.4.1 
ALSCI Command ..............-205- 6.4.1 
PU AS ss ic beas 64 ete! wrens eho Aes Gee aR oS 5.7 
Allocatable Disk Unit (ADU) ............ 2.7 
ALLOCATE: 
Linking USing ...............2005. F5-13 
SGC] COMMANG «0 ei ieee ee 5.6.5 
ALN SCI Command..............005: 6.4.1 
Alternate Directory Structure ........... 3.3 
AIOUMENRL 25 aocee eek ae eis bead oie kee eds 8.3 
SEs tescetpin ace oe sate he ag ao eae 8.3 
Arithmetic Operations................ 13.3 
AS SCI Command ..............2085 1.2, 2.6 
Assembler Subroutine, COBOL 
Routine Calling...............-00.. F8-5 
Assembly Language: 
WMOGUIC 2 2 m5 ooh Ot See ences F7-3, F7-4 
COBOL Program Calling .......... F7-2 
SUDIOULING =2 extancratie cae ee eee 8.3 
DEDUGGING a seis ceetkse a arenes eee ere ee 7.3 
moon Address Stop (A) Debug 
COMmMAand is sti te eee toe ees 7.2.2.1 
Assign ‘Global LUNO (AGL) SCI 
GCOMM@ANG xs cntesenew ct hw eheete 6.4.1 
Assign Logical Name (ALN) SCI 
GOMMANG 46.225 oo ets wane toe eee 6.4.1 
Assign LUNO (AL) SCI Command ......6.4.1 
Assign Synonym (AS) SCI 
GOMMAN Gs y bow 3 ose Guess ena ea en 1.2, 2.6 
AT END Phrase....... ee ee eee 12.4 
Attributes: 
Relative Record .............04.4. 2.7.2. 
Sequential File ................5. 2.7.1. 
Background Task: 
Synonym AvailabilityWitha .......... 2.6 
BATCH SCI Command.............. 2.3.4.1 
BOC H SOD son x's iA eda eee bow Re ae ed 2.2.2 
Stream Format ...............05. 2.3.4.1 
So ahca ob ae tsecsec whales a fez aaa a Pa ate eae aaslone aot 2.3.4 
Blank: 
AC\IUSIMCN 2.4 wite ooo ey ciate 2.7.1.1 
SUPPIeSSION ....... 2.0 eee eee 2.7.1.1 
Blocking Factor ...........00 cece neee 2./ 
Building, Program ............000ee ees 3.5 
By File Type, Organization ............ 3.3.2 
By Programs, Organization ........... 3.3.1 
CALL Statement................0000es 8.3 
Index-2 


Calling: 

Assembly Language Module, 

COBOL Program...............5. F7-2 

SUDIOULING + vv aia eae CRG RA eats 8.1 
Capabilities, System .................. 2.1 
CCSCiCommand ................. 2.3.4.4 
CF SCI Command ................005 2.4.3 
CFDIRSCI Command ............ 2.4.2, 3.4 
CFIMGSCI Command ............... 2.4.3 
CFKEY SCI Command ............... 2.4.3 
CFPRO SCI Command ............... 2.4.3 
CFRELSCICommand ............... 2.4.3 
CFSEQ SCI Command ............... 2.4.3 
Change Program Location (L) 

Debug Command ................ 7.2.2.4 
Characters, Graphic ................ F11-4 
CLSCIlCommand...........-....:--. 3.5 
CLOSE Statement................ 3.5. 12.2 
COBOL: 

Compilation ................ 00 eee 4.1 

Compiler: 

Informative Messages............ TB-3 
Listing With ErrorMessages ...... FB-1 
ODNONS Send ect eeen sc teh ene 4.2.1 
System Error Messages........... TB-2 
User Error Messages ............. TB-1 

Debug: 

Commands ...........0.00 eens aie: 
MOGG: 6 ahah sir iis ane Moaiesee ease hane iow eek 1.2 

EXCCUUIOME 6a ew.actoe dererhea ne aveewcy Beier ake 6.1 

Interfacing With DBMS-990..... Gitte: F9-3 

I/O Operation Validity Table ........ 712-3 

Library Subroutines................ TD-1 

Module: 

DEDUGQGING +o. Se.p0004 Geese seats 7.2 
Linking DBMS-990 ............... 9.4.3 
Linking Query-990 and............ F9-5 
Segmentation...............0005 5.4.3 

OVErVIEW .. 1... . eee es 1.1 

PIOCCGUIC ise baie i wa dente ais F10-3 

Program: 

Calling pooelny banewage 

Module... .. 2.2... cee eee eee F7-2 
Development Overview ag ail ad irda ah urge 1.2 
Module Retrieving Additional 

SCI Parameters ............... F10-4 
Source Module ................5. F3-1 
Using Subroutines ............... D.17 

Routine Calling: 

Assembler Subroutine............ F8-5 

Sort/Merge........... 0c cece eee F9-2 
PRU UTNO™ ica Sictaceati ccd aida dar ee kh cd Seatte toy 5.6.1 

ErrorMessages ...............5. TC-1 

Interpreter... .... 0... 0 ce eee eee 5.6.1 
segmentation Within Overlay 

Phase Modules .............. ....F5-8 
source Module .............02000 0s 3.1 
Subroutine .............0200- FD-1, FD-2 
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Library Package............... 8.2, D.1 
Codes, C$SUBS Subroutine Error ...... TD-2 
Command: 

NAMC) i:0.0 ks crcatd ame bee atl ete dn 123.4 

PIOCCQUNC? si-36dtara Gdn degewwd aie-d a eek 10.2 

EX ANNDIC: Schoudsd tatu ae seated esa 10.3 

Procedures, SCl csc ct ee ea a os 10.1 

PrOCOSSON * 5.6-f6sys BAe iw a era 10.2 

PROM DL 4 cava giana aoe date hia ela 1.3.2 

FOrmmal,.SCl 50.05 cos’ tweed ace edad a ales 

NOMANON yf i-04 ote saw hol sae eine T1-1 

0 Mer ee eee mr Se mean ee eee eer 1.3 
Commands: 

COBOL Debug .................0.. 7.2.2 

DOD UG! wcsanuscsuse acai osasna edhe mde, eee! T7-1 

ENNK CGO 4 bsee hod Goede dat Societies T5-1 
Communication ...............000 eae 9.6 
Comparison of Memory Requirements . .F5-7 
Compilation, COBOL.................. 4.1 
Compiler: 

Completion Codes ...............05. 4 

Error MessagesS.............0 eee eee 4 

EXCCUUIOMN: str ee Me dat Peed y oe bee eaten ae 4. 

Informative Messages. COBOL ...... TB- 

LAMITATIONS: 62 seine Caw Boot ou a awk oa 4 

EAS UN se fe 4 ee crib etd eae arenas Sor ne F1- 

With Error Messages, COBOL ..... FB- 

ODUONS <e-suu tee toed oe kee 4.2. 

COB Ob disso eh S55 See arated ane ate tad 4.2 

OUTOULE 6:22. Atos ead bed Bee ee ose 4. 

IGE Giesneva-d wtatent Aceh oleh ange Ss te de F/- 

system Error Messages, COBOL..... TB- 

User Error Messages, COBOL ....... TB- 
Completion Codes ................ 6.3, 6. 

COMPING! sesicas gare ea aed arenes Ae we 4. 
Compressed Format .................. 5: 
Contents, Program File............... F5- 
Control: 

PM h LU Kk gfe eestentctnsie oh ho hea se aa 1.2,5 

Operations: 44.4 Gdbdasidvewado itis 13. 
Copy/Concatenate (CC) 

SC] Command...............005. 2.3.4 
Copy Lines (CL) SCI Command.......... 3. 
Correspondence Table, Device........ T12 
Create Directory File (CFDIR) 

SCI Command..............05. 2.4.2,3 
Create File(CF)SCIl Command ........ 2.4. 
Create Image File (CFIMG) 

SCl Command .............00 eee. 2.4. 
Create Key Indexed File (CFKEY) 

SCl Command ...............0005. 2.4. 
Create Program File (CFPRO) 

SCl Command ...............0005. 2.4 
Create Relative Record File (CFREL) 

SCl Command ................0004 2.4 
Create Sequential File (CFSEQ) 

SCl Command .............000 0s 2.4 
Creating: 

DIFECIOlY 46 i.icd4 bad taue ce bo oe 2.4.2, 3. 

PUG a:o-o. Satie ve caded he gst eta at Gulu dole re 2.4.3, 3 

Linked Object Modules .............. oD 
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Default Value .................005. 1.3.3.2 
DELETE Statement ........ srenioracs ie aeen' 12.2 
Delete Lines (DL)SCIl Command......... 3.5 
Description, Relative Record File ...... F2-8 
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